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Sobre los autores 



Scott Vincent es un programador experimentado en Codigo 
Maquina. Habitualmente estudia ordenadores en la Universidad 
de Sheffield; Scott tiene publicados gran cantidad de libros 
sobre Codigo Maquina por conocidas casas de software. Gran 
parte de los libros que ha escrito, han sido publicados por 
Interface y Virgin Books. 

Clive Gifford tiene aproximadamente 20 libros editados y 
escribe con frecuencia para un numero de revistas de 
ordenadores, incluyendo Home Computing Weekly. Sus tftulos 
publicados incluyen The Amstrad Programmers Reference 
Guide (con Tim Hartnell como co-autor), Using Computers in 
Education y On-Line With Your Computer. 

Unidos, los dos autores han trabajado en varios proyectos, 
incluidos bastantes libros de la serie Games for Your... 
publicados por Virgin. 



Los autores desean agradecer su colaboracion a las siguientes 
personas: Dave, Dickie, Grannis, Lorraine, Simes y Stuart. 
Tambien agradecen a Alan y Sue Baggs su ayuda con el 
prestamo de equipos, asf como a John Brown por su acuerdo con 
todo el proyecto. 



Introduccion de los autores 



Debido a su relacion prestaciones/precio, la gama de 
ordenadores AMSTRAD no tiene igual en el mundo del Home 
Computer. El BASIC suministrado con los equipos AMSTRAD 
esta escrito por Locomotive Software y es excelente, pero no 
hay BASIC que pueda igualar la velocidad de un programa 
escrito en Codigo Maquina. Este lenguaje tiene tambien otras 
ventajas. Un programa bien escrito en Codigo Maquina ocupa 
mucho menos espacio en la memoria; aun mas, pueden 
escribirse rutinas para ejecutar tareas imposibles de realizar a 
traves del BASIC -como lo demuestra la disponibilidad del 
sintetizador de voz y nuestra velocidad de cassette mas rapida. 

Sin embargo, el Codigo Maquina tiene desventajas. Es tedioso y 
lento de escribir, no tiene facilidades para comprobar errores 
(en caso de error en el programa, perderemos el control del 
mismo) y, por supuesto, para escribir cualquier rutina es 
necesario estar familiarizado con el. Para muchas personas esto 
es demasiado complejo y el Codigo Maquina semeja los vestigios 
de un dios, demasiado dificil de aprender. 

Este libro es para aquellas personas que son incapaces de 
escribir Codigo Maquina pero que escriben programas en BASIC. 
Hemos tratado de escribir rutinas de todo tipo: graficos, sonido, 
conservacion de memoria, recuperacion mas rapida desde el 
cassette y utilidades. Todo ha sido suministrado en la forma de 
un cargador BASIC, una lista en Ensamblador y una descripcion 
detallada del uso, y en algunos casos, un programa de 
demostracion. 

Esperamos que este libro sea una ayuda para aquellos 
programadores que todavia no se han introducido dentro del 
complicado Codigo Maquina, o para aquellos que, habiendolo 
hecho, han tenido problemas o no han realizado las mismas 
rutinas que aqui les of recemos. 



Feliz tecleado. 



Clive Gifford 
Scott Vincent 



Londres, 1985 



Reposicionador de texto 



Esta subrutina cambia una cadena de caracteres de la posicion 
superior a la inferior. El programa utiliza los primeros 
caracteres graficos definibles por el usuario (User-Definable 
Graphic, UDG) por lo que habra que tener en cuenta dos puntos. 

1) . Asegurarse que al menos hay un caracter UDG 

disponible; el numero disponible puede ser cambiado 
con el comando SYMBOL AFTER. 

2) Asegurarse de que no se desea utilizar el primer 
caracter UDG disponible; si Vd. desea emplearlo, 
haga entonces SYMBOL AFTER, 1 mas bajo. 

El formato para llamar a esta rutina es el siguiente: 

CALL 40000, X, Y,@A$ 

X e Y son las coordenadas donde sera impreso el^ primer 
caracter. Como la cadena sera invertida, la impresion de la 
misma se hara en la pantalla de derecha a izquierda. Esto debe 
tenerse en cuenta al especificar las coordenadas. X e Y pueden 
ser cualquier integer o variable numerica,^ siempre que esten 
dentro de los margenes de la pantalla. Segun lo anterior CALL 
40000, a, b, @ A$ tiene el mismo efecto que CALL 40000, 5, 9, 
@p$. 

La cadena conteniendo los caracteres, puede ser cualquier 
variable alfanumerica (string = variable) pero no una serie de 
caracteres encerrados entre comillas (")• Por ejemplo, CALL 
40000, X, Y, "HELLO", @ A$ no trabajaria, pero esto 
dif icilmente es un problema. A$ = "HELLO": CALL X, Y, @ A$ 
tendrfa el efecto deseado. 

El signo @ permite a la rutina pasar una variable alfanumerica 
desde y hacia Codigo Maquina, siendo una caracteristica muy 
util para el programador que se inicia en esta modalidad. Esta 
rutina trabajara en los tres modos de screen (pantalla) que tiene 
Amstrad. 



1 ' _ REPOSICIONAUOR DE TEXTH 

10 SYMBOL AFitR 256:MEMfiPY -;9vqo. c;yjvj B j-,i 

AFTER 24« " "~ 

20 FOR n =40000 TO 40076 

30 READ 3$: POKE n , WAL •:' "£• '+ = ■$'' 

40 NEXT 

->0 UATA DD , 6E , . DO , 66 , i . 7E . B7 . 08 . 23 

60 DATA 5E,23,56 ¥ DD,6E,02.DD.66.04.'47 

70 DATA Co,t5^CU 5 75,BB, lA.CD = 64.9r: n i9 

30 DATA El ,2b,0i .10.Fi .Cv.D^.PD.A^i.BB 

90 DATA EB,CD,AE,BB, 06, 07.23. Ift.FD.F^i 

i00 UAlA OD ¥ 06„B9.0E = 0S. 1A.06.0S. lF.O'B 

110 DATA 16, 10,FB. 13.2B.0D.2B.F3".r:D". fi"5 

120 UATA B9,F1,CD.5A.BB.D1.C9' 
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1 9 


CALL 


CURSOR 


9059 1A 


0200 


LD 


A. (DE) 


9C5A CD6490 


0210 


CALL 


INVCHR 


9C5D 13 


0220 


INC 


DE 


?C5E El 


0230 


POP 


HL 


9C5F 25 


0240 


DEC 


H 



8 



•~!l '.'-.Si 


CI 


0250 






POP 


BC 


9C61 


10F1 


Of V ;•-, fl 






LiJNZ 


NXTCHR 


9r/-,H 


r ■-.' 
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0420 






LD 


C . 8 
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9C78 
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n: 
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RRA 




9C7B 
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9C7D 
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DE 
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DEC 
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END 





RSX Sound (Sonido RSX) 



Este sorprendente programa te proporciona un conjunto de 
comandos similares a los que pueden encontrarse en el 
ordenador Oric. Para aquellos que no esten familiarizados con 
las particularidades del Oric (que pueden ser el 99 por ciento de 
los lectores), diremos que una de sus excelentes caracterfsticas 
era la predefinicion de sonidos. Si escribfas en BASIC el 
comando ZAP, obtenias un sonido "ZAP"; asimismo, si tecleabas 
EXPLODE, obtenias el sonido mas real de una explosion. 
Obviamente, estas facilidades ahorraban al programador gran 
cantidad de tiempo. Muchos de los listados de Oric hacen uso de 
estos utiles comandos. 

Nuestra rutina crea para el Amstrad unas posibilidades 
similares. Seis sonidos (dos mas que en el Oric) nan sido 
predefinidos, todos los cuales consideramos seran muy utiles; 
principalmente en programas de juegos. Despues de rodar el 
programa cargador en BASIC, deberas ejecutar CALL 40000 
para inicializar la rutina. 

A partir de ese momento, dispondras de seis nuevos comandos 
en el BASIC. Estos han sido creados con la ayuda de la ROM que 
tiene nuestro Amstrad, la cual permite que puedan crearse 
nuevas palabras (en el BASIC) mediante una rutina conocida 
como RSX. Estos seis comandos son: 

EXPLODE 

PING 

SQUELCH 

ZAP 

ALIEN 

SHOOT 

La barra vertical que precede a los nombres, es parte de las 
caracterfsticas de RSX y es el caracter localizado en la misma 
tecla que '@' (a la derecha de la 'P'). 

Feliz "zapping", "squelching", y demas. 



1 ' RSX SOUND 

10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL 

AFTER 240 
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20 HUR ri=40000 1 403 i 5 


30 READ a*; POKE n.VALC&'+a*) 


40 NEXT 


50 DATA 1 , 4 A , 9C , 2 1 , 5E , 9C , CD , D 1 , BC , C9 


6 DATA 62 , 9C , C3 , 32 , 9C , C3 , A 1 , 9C , C3 , C 


70 DATA 9C , C3 , DF , 9C , C3 .IB, 9D , i 


";0 AC •-.'f I 


80 DATA 00 , 00 > 00 , 00 , 45 . 58 „ 50 . <■ 


JC . 4F . 44 


90 DATA C5.53.51 .55.45. 4C. 43.i 


::8.50.49 


100 DATA 4E,C7,5A,4i,D0,4i,4C 


.49.45.CE 


110 Li A 1 A S3 , 48 , 4h , 4h , D4 , , CD 


. A7 , BC , 3E 


120 DATA 01 ,21 , 94,9C,CD,BC,BC 


.21 ,98,9C 


130 DATA CD,AA.BC,C9,0i 


, OF,FF 


i d 

a J. .■• 


.01.01 


140 DATA OO , OO , OO , OF, OF 


C) \A s Q\ 0} 


.CD 


. A7 . BC 


150 DATA 06, OF, C5, 78, 32 


. BC , 9C 


.21 


. B7 , 9C 


160 DATA CD.AA.BC.30.FB 


. C 1 . 1 O 


FO 


. C9 , O 1 


170 DATA 01.00.00.00,00 


.OF, 02 


. 


. CD . A7 


ISO DATA BC,3E,01 ,21,D2 


. 9C . CD 


BC,BC 


21 


190 DATA D6,9C,CD,AA,BC 


. C9 . O 1 


O F . F F 


.05 


200 DATA 01 , O 1 , OO , 19, 00 , 00 , OF 


00 


00 


CD 


210 DATA A7,BC,3E,01 ,21 ,05,90 


CD 


,BF 


. BC 


220 DATA 21 ,09,90, CD, AA 


BC. 06. 


OF 


C5 


3E 


230 DATA 10.90.32. 17. 90 


.21.12 


9D 


CD 


. AA 


240 DATA BC,30,FB,C1,10 


EE,C9. 


01 


OF 


04 


25 O DATA 02.O1 .00.01 .28 


O O .00. 


6 


IE 


00 


260 DATA 02,00,00,00,00 


00 . F 


02. 


O = 


CD 


270 DATA A7,BC,3E,FF,21 


33 . 90 . 


CD 


bf' 


BC 


230 DATA 2 1 , 3 A , 90 , CD , A A , 


BC.21. 


43. 


9U . 


CD 


290 DATA AA , tiC , C9 ,02, O 5 


FF,02. 


05. 


01 


V 


300 DATA 01,00,01,64,00. 


O0.O7, 


64. 


00 . 


02 


310 DATA 00.01 .6C. 00. OO, 


07.64. 


C) i>i 


CD. 


A7 


320 DATA BC,3E,0 1.21. 66. 


90 . CD . 


Be! BC.21 


330 DATA 6A,9D,CD,AA,BC. 


21,73, 


90 , CD , AA 


340 Li AT A BC , 3 O , FB , C9 ,01. 


Oh ,Fh , 


02.01,00 


350 DATA O O , O , O , A , OF ■ 


04.00. 


01,01.00 


36 DATA O , O , O 5 , O F , O O , 


00 
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ADUoND 


DEFL 
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LOGEXT 


DEFL 


0BCD1H 


yC40 


014A9C 


0070 




LD 


bC . 1 ABLL 


9C43 


215E9C 


0080 




LD 


HL , SPACE 


9C46 


CDDit'.L 


$ Oi Q 




CALL. 


LOGEXT 


9C49 


i ■'_..' 


0100 




RET 




9C4A 


.i t v C' |~* 
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TABLE 


DEFW 


NAMETB 


9C4C: 


i_. .~« O ±i V L 


0120 




JP 


EXPLOD 


9C4F 


C3A19C 


1 H 




JP 


SOUELC 


9U52 


L"-!IJt)VL 


0140 




JP 


PING 


9C55 


C3DF9C 


0150 




JP 


ZAP 


9C58 


C31B9L" 


0160 




JP 


ALIEN 


9C5B 


C34C9L 
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JP 


SHOO 1 


9C5E 
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00 
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9C77 
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3E01 
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LD 


A.l 


9C87 


21949C 
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HL.AMPi 


9C8A 


CDBCBC 


0350 




CALL 


AMPENV 


9C8D 


2i989C 


0360 




LD 


HL.SND1 


VCV0 


CDAABC 


0370 




CALL 


ADDSND 


'-■'C~'3 


C9 


0880 




RET 
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£i d ^ L-i 
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,-s F 
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v.- ri O 


C5 
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PUSH 


P.j ] 


f ' i 7 


i" O 


0450 




LD 
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f ■ f\ p 
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0460 




LD 


(N0ISE2) .A 


CAB 


21B79C 


4 7 




LD 


HL . SND2 
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ADDSND 


CB 1 


3 F B 


4 9 




JR 


NCFULL2 
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CI 
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POP 
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10F0 
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RET 
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DEFB 
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LD 
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LD 
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RET 
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CALL 
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3E01 
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LD 


A.l 


9CE4 


21059D 


6 7 




LD 


HL . T0NE4 


?CE7 


CDBFBC 


0630 




CALL 


TONENV 


?CEA 


21099U 


0690 




LD 


HL . SNU4A 


9CED 


CDAABC 


0700 




CALL 


ADDSND 


?CF0 


060F 


0710 




LD 


B, 15 


?CF2 


C5 


0720 


L00P4 


PUSH 


BC 


?CF3 


3E10 
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LD 
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?CF5 
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0740 
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B 


9CF6 


32179D 
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LD 


(N0ISE4) .A 


?CF9 


21129D 
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LD 


HL . SND4B 


9CFC 


CDAABC 


0770 
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CALL 


ADDSND 


9CFF 
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JR 
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CI 
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POP 


BC 
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DJNZ 
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'DIB 
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ALIEN 


CALL 


SNDRES 


'DIE 


3EFF 
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>D2« 
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:39u 


0890 




LD 


HL . TONES 


<D23 


CDE 


FBC 
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TONENV 
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A9U 
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LD 
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3ND5A 


>D29 


CD A ABC 
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CALL 


AuD 


BND 


>D2C 
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CALL 


ADD 


BND 


>D32 


C9 




9 !~i 




RET 




<D33 


02 




9 iS 


TONES 


DEFB 


•- cr -tcrcr •■*;< 




«b 


j~ h V 




'D37 


05 

01 


02 


0970 




DEFB 


5,1,2 


•'D3A 


01 




v? V 'Px £l 


SND5A 


DEFB 


1,0 


, 1 , 100 
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][ 


64 










?D3E 


00 

00 07 


64 


'": V 




OEFB 


0.0.7.100 


?D42 







1000 




DEFB 





?D43 


•■' 

i 


,■•-,!"■■ 


1010 


SND5B 


OEFB 


2,0,1, 108 


?D47 




7 


64 


1020 




DEFB 


0.0.7.100 


?D4B 


00 




1030 




DEFB 





?D4C 


CDA7BC 




1040 


SHOOT 


CALL 


SNORES 


?D4t- 


3E01 




1 S 




LD 


A. 1 


?051 


2i669D 


j 


1060 




LD 


HL,AMP6 


?D54 


CDBCBC 




1070 




CALL 


AMPENV 


?D57 


2i6A9D 




1080 




LD 


HL , SND6A 


?D5A 


CDAABC 




1 9 




CALL 


ADOSND 


?D5D 


21739D 


1 


1100 




LD 


HL . SND6B 


?D6« 


CDAABC 




1110 


FULL.6 


CALL. 


ADOSND 


?D63 


3«FB 




H20 




JR 


NC,FULL6 


?D65 


C9 




1130 




RET 




?LJ66 


01 

0F FF 


02 


1140 


AMP6 


DEFB 


1 , l-_i , iJJ , . 


?D6A 


01 




l/l L-1 


1150 


SND6A 


DEFB 


1,0,0,0,0 


?D6F 


0A 

0F 04 


00 


1160 




DEFB 


10,15,4,0 


?D73 


01 

01 00 


6 


1170 

00 


SND6B 


DEFB 


1,1,0,0,0 


?D78 


05 

0F 00 


00 


1130 
1190 




DEFB 
END 


5,15,0,0 
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Caracter ampliado por 8 



Esta rutina transforma tu pequeno e insignificante caracter de 
8 por 8 pixels en un monstruo 8 veces mayor -de aqul el 
imaginativo tftulo. La rutina es, efectivamente, bastante simple 
de escribir. Lo que hace la rutina es, en efecto, tomar el 
caracter especificado, examinarlo lfnea a lfnea y allf donde un 
pixel contiene el foreground (primer piano) color, reemplazarlo 
(el pixel) con el caracter 143 (CHR$(143)) que representa un 
bloque solido. Esto hace que el caracter impreso sea 8 veces 
mas grande que el normal. Habil, ^eh? 

Esta rutina acepta el siguiente comando: 

CALL 40000, X, Y, CHAR, PI, P2 

X e Y son las coordenadas superior-izquierda desde donde sera 
impreso el caracter magnificado; CHAR es el codigo ASCII 
correspondiente al caracter que vamos a ampliar; PI y P2 
controlan los colores de la mitad superior e inferior del 
caracter, respectivamente. Con esto es posible obtener un color 
diferente en cada mitad, creando un sensacional efecto. 

La siguiente rutina de demostracion imprimira dos caracteres, 
'GO' en Mode con sus mitades en diferente color. Para 
cambiar los colores, simplemente pulsa la barra espaciadora. 

10 MODE 0: CLS 

20 FOR T = TO 25 

30 CALL 40000, 1, 8, 71, T, T+l 

40 CALL 40000, 12, 8, 79, T+l, T 

50 IF INKEY$ = "" THEN NEXT ELSE 50 

60 END 



i 




CARAC 


Ttk" 


AMPLIADO 


POR 


O 




10 


SYMBOL 


_ AFTER 


.■•' .__! i'~t 


: MEMORY 3 


~i o i~i t~i 


: : : ;'' 


'MB0L 


AFTER 240 












20 


FOR n = 


=40000 x 


J 4 


0076 








30 


READ a*: POKE 


n.V 


^LC a &"+a* 


) 






40 


NEXT 














50 


DATA L 


::D,?3,BB 


,F5 


, CD,06,B9 


, DD , 


7E 


04 



16 



60 


DATA 


CD 


. A5 . BB , 


EB.DD. 


6E. 


06 


. DD . 




08 


70 


DATA 


6 


. 08 . C'D . 


E5 . CD . 


7ti . 


BB 


. CB . 


40. 


ji.O 


80 


DATA 


05 


, DD , 7E , 


. i 8 , 


/"' „ 


DD 


.7E. 


02 n 


CD 


90 


DATA 


90 


. BB .Lin 


2C.0E. 


80 . 


06 


.08. 


1 A . 


Al 


i 0« 


DATA 


jL. 


3.04.3E 


.8F.13 


.0:1 


a •-' 


E.20 


.cc 


C7 r. 


il« 


DATA 


B 


B . CB . 35 


. 1 . EF 


Az 


!,C 


1,10 


,D1 


, CD 


12t 


DATA 


Q} 


?.B9.F1 


,CD,90 


• BE 


,c 


O 







Editc 


■r Asserrib 


ler 








AMMA? 


; 1.1 










Cop yi- 


•ight 19£ 


5 PICTURESQUE 








-001 


9 


CAR 


^:!~i 






0002 


; 






9C40 




0010 




ORG 


40000 


BB93 




0020 


GETPEN 


DEFL 


0BB93H 


BB90 




0030 


SETPEN 


DEFL 


0BB90H 


BBA5 




0040 


HATRIX 


DEFL 


0BBA5H 


BB75 




0050 


ri ipsnp 


DEFL 


0BB75H 


BB5A 




6 


TXTOUT 


DEFL 


BBS AH 


B906 




0070 


ROMENA 


DEFL 


0B906H 


B909 




8 


ROMDIS 


DEFL 


0B909H 


9C40 


CD93BB 


y fl 




CALL 


GETPEN 


9C43 


F5 


0100 




PUSH 


AF 


9C44 


CD06B9 


0110 




CALL 


ROMENA 


9C47 


DD7E04 


0120 




LD 


A. (IX+4) 


9C4A 


CDA5BB 


0130 




CALL 


MATRIX 


9.C4D 


EB 


0140 




EX 


DE . HL 


9C4E 


DD6E06 


0150 




LD 


L. (IX+6) 


9C51 


DD6608 


0160 




LD 


H. (IX+8) 


9C54 


0608 


0170 




LD 


B . 8 


9C56 


C5 


0180 


.NXTRDU 


PUSH 


BC 


9C57 


E5 


0190 




PUSH 


HL 


9C58 


CD75BB 


0200 




CALL 


f.\ Ipsfip 


9C5B 


CB40 


0210 




BIT 


0,B 


9C5D 


2805 


0220 




JR 


Z , C0L2 


9C5F 


DD7E00 


0230 




LD 


A, CIX+0) 


9C62 


1803 


0240 




JR 


SETCOL 


9C64 


DD7E02 


0250 


C0L2 


LD • 


A. CIX+2) 


9C67 


CD90BB 


0260 


SETCOL 


CALL 


SETPEN 


9U6A 


El 


0270 




POP 


HL 


9C6B 


.■• | . 


0280 




INC 


L 


9U6C 


0E80 


0290 




LD 


C.123 
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VI" 



VI' 



SE 


060 8 


Oi '-! Oi Oi 






LD 


B , 8 


7@ 


Ia 


0310 


NXTC 


:0L 


LD 


A , ( Dt ) 


71 


Al 


0320 






ANU 


f: 


"7'"' 


2804 


0330 






JR 


Z . SPACE 


74 


3E8F 


H 3 4 






LD 


A. 143 


i' O 


1802 


8 ri 






JR 


PRINT 


t" O 


3E20 


08l'":0 


SPAC 


E 


LD 


Hi a ~i.iL. 


i" M 


CD5ABB 


0370 


PRIh 


T 


CALL 


TXTOUT 


7D 


CB39 


3 3 






SRL 


c 


7F 


10EF 


0390 






DJNZ 


NXTCOL 


31 


13 


0400 






INC 


DE 


Jji! 


CI 


0410 






POP 


BC 


33 


10D1 


0420 






DJNZ 


NXTROW 


-icr 


CD09B9 


0430 






CALL 


ROMDIS 


38 


Fl 


0440 






POP 


AF 


39 


CD90BB 


0450 






CALL 


SETPEN 


3C 


C9 


0460 
0470 






RET 
END 






18 



Caracter ampliado por 24 



Esta es una variacion sobre un tema. En lugar de poner un 
caracter 143 (CHR$(143)) por cada pixel activado, esta rutina 
permite que en su lugar sea puesto un extravagante bloque de 3 
por 3 de estos caracteres, con lo cual creamos un caracter 3 
veces mayor que el anterior y 24 veces mayor que el original. 
Obviamente, el efecto de la rutina se vera limitado si se usa en 
Mode 0, donde unicamente hay 20 columnas a lo ancho de la 
pantalla. 

Como puede verse en el formato mostrado abajo, la rutina no 
tiene otra diferencia (para su uso): 

CALL 40000, X, Y, CHAR, PI, P2, P3 

Mediante la 'P' extra, conseguimos una mayor diferencia en el 
color del caracter. Existe una serie de posibilidades para usar 
este color extra, nosotros hemos decidido usarlo de la siguiente 
manera. Cada ifnea del caracter (ampliado) tiene una longitud 
de 24 caracteres por 3 de alto. El color de la primera lfnea de 
este rectangulo (24 caracteres por 1 de alto) es siempre 
adjudicado por PI, la segunda por P2 y la tercera por P3. 

Probablemente, es mas facil mostrar esto en un diagrama, tal 
como el representado a continuacion: 



COLORES DE PEN SOBRE TIMES 24 PRINT 



SUPERIOR fFila 1 

CARACT. \¥\\z. 2 

LINEA 
2° 




HASTA COMPLETAR EL CARACTER 
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i ' CARACTER AMFLIADO FOR 24 

10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL 

AFTER 24« 

20 FOR n=40000 TO 40097 



30 


READ 


a*: POKE n 


1 t A 

b Vri 


LC" 


&■ + 


a*) 






40 


NEXT 


















50 


DATA 


CD , 93 , 


BB . 


F5. 


JD. 


06. 


B9 , DD , 


7E, 


6 


i~t 


DATA 


I: Li , A5 , 


BB. 


EB. 


DD, 


6E, 


03,DD, 


(jij . 


0A 


70 


DATA 


06. 08= 


C5. 


0E, 


"' 


,-■-, a 


03.C5, 


E5, 


CD 


3 


DATA 


75, BB, 


CB , 


40 , 


■ ■' l~i B 


0e! 


I:B , 48 , 


j^!o b 


05 


90 


DATA 


DD . 7L . 


04 = 


18. 


8 . 


DD, 


7E.00. 


18. 


3 


1 


DATA 


DD . 7E 


0i'~ 

b •_• .»_ 


. CD 


,90 


.BB 


.El, 06 


,0£ 


. 1 A 


lif 


DATA 


A1.2G 


.04 


,3E 


.8F 


.13 


.02.3E 


. 20 


, CD 


120 


DATA 


5A . BB 


,cc 


cr a 


. BB 


, CD 


,5A.BB 


!cb 


a •"'"■' 


13€ 


DATA 


1 , E9 




. CI 


.10 


f'.Fi 


.13. CI 


,10 


,BC 


140 


DATA 


CD, 09 


,B9 


.'fi 


. CD 


,90 


. BB . C9 







Editc 


ir Asserr 


b ] er 








AMMAS 


; 1.1 










Cop yi- 


■ight 19 


85 PICTURESQUE 








0001 


; 


CAR 


*24 






0002 


: 






9C40 




0010 




ORG 


4 


BB93 




fi fi ■"' fi 


GETPEN 


DEFL 


0BB93H 


BB90 




3 


SETPEN 


DEFL 


0BB90H 


BBA5 




0040 


MATRIX 


DEFL 


0BBA5H 


BB75 




0050 


CURSOR 


DEFL 


0BB75H 


BB5A 




0060 


TXTOUT 


DEFL 


BBS AH 


B906 




0070 


ROMENA 


DEFL 


0B906H 


B909 




0080 


ROMDIS 


DEFL 


0B909H 


9C40 


CD93BB 


0090 




CALL 


GETPEN 


9C43 


F5 


0100 




PUSH 


AF 


9C44 


CD06B9 


0110 




CALL 


ROMENA 


9C47 


DD7E06 


0120 




LD 


A, CIX+6) 


9C4A 


CDA5BB 


-0130 




CALL 


MATRIX 


9C4D 


EB 


0140 




EX 


DE , HL 


9C4E 


DD6E08 


0150 




LD 


L.CIX+8) 


9C51 


DD660A 


0160 




LD 


H. (IX+10) 


9C54 


0608 


0170 




LD 


B,8 


9C56 


C5 


0180 


NXTROW 


PUSH 


BC 


9C57 


0E80 


0190 




LD 


C.128 


9C59 


0603 


0200 




LD 


B,3 



20 



~;\~ 


5B 


C5 


0210 


AGAIN 


PUSH 


BC 


r.'i~ 


5C 


E5 


0220 




PUSH 


HL 


~ii" 


5D 


CD75BB 


0230 




CALL 


CURSOR 


r.'i - 


60 


CB40 


0240 




BIT 


0,B 


— 1 1~ 


i'~i .-' 


28 0E 


0250 




JR 


Z , C0L2 


"SI*" 


64 


CB48 


0260 




BIT 


1,B 


r.'i" 


■i 6 


2305 


0270 




JR 


Z . COLS 


~ii*~ 


68 


DD7E04 


2«~'0 




LD 


A.UX+4) 


"■' i~ 


6B 


1808 


0290 




JR 


SETCOL 


-■ r 


6D 


DD7E00 


3 


COLS 


LD 


A. (IX+0) 


~ii~ 


70 


1803 


0310 




JR 


SETCOL 


~ } i~ 


\' .£'- 


DD7E02 


0320 


C0L2 


LD 


A. CIX+2) 


r.'i"" 


—?cr 
i' _i 


CD90BB 


0330 


SETCOL 


CALL 


SETPEN 


~'t~ 


i *Z* 


El 


0340 




POP 


HL 


o i~ 


"7u 


6 8 


0350 




LD 


B , 8 


~i j'- 


7B 


1A 


0360 


NXTCOL 


LD 


A, (DE) 


C>\~~ 


7C 


Al 


0370 




AND 


c 


"■'!"" 


7D 


2804 


Qi 'P, j~ C) 




JR 


Z . SPACE 


i~ij~ 


7F 


3E8F 


0390 




LD 


A. 143 


r.'i" - 


81 


1802 


0400 




JR 


PRINT 


5 1" 


83 


3E20 


0410 


SPACE 


LD 


A . 32 


~ll" 


OC 


CD5ABB 


0420 


PRINT 


f 


ALL 


TXTOUT 


*-' I - 


O *— ' 


HD5ABB 


0430 




f 


ALL 


TXTOUT 


~:i"" 


SB 


CD5ABB 


0440 




c 


ALL 


TXTOUT 


*"•' f 


8E 


CB39 


0450 




£ 


RL 


c 


~l ("■ 


90 


10E9 


0460 




DJNZ 


NXTCOL 


C? i~ 


V j^| 


2C 


0470 




INC 


L 


O |"" 


93 


CI 


0480 




POP 


BC 


Oi - 


94 


10C5 


0490 




DJNZ 


AGAIN 


Oi" 


*Z".' ji. 


13 


5 




INC 


DE 


Of" 


97 


CI 


0510 




POP 


BC 


O i~ 


V '-' 


10BC 


0520 




DJNZ 


NXTROW 


l~ll~" 


VA 


CD09B9 


0530 




CALL 


ROMDIS 


1~ 


9D 


Fl 


0540 




POP 


AF 


Oi~ 


9E 


CD90BB 


0b50 




CALL 


SETPEN 


O i - 


Al 


C9 


0560 




RET 










0570 




E 


NO 
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Lector de cabeceras 



Esta corta rutina en Codigo Maquina, en conjuncion con un 
programa en BASIC, te permitira obtener los detalles que 
necesites sobre un programa grabado en cassette. No es 
necesario que grabes completamente todo el programa; la 
rutina unicamente necesita la cabecera de donde obtiene los 
siguientes parametros de gran utilidad para identificar el 
programa: 

Nombre de archivo (File Name) 

Numero de bloque (si el archivo es mas largo de uno) 

Especifica si es el ultimo bloque de un programa 

Tipo de archivo (File Type, esto es, BASIC, binario o ASCII) 

Especifica si el programa esta protegido 

Longitud de los datos 

Localization de los datos 

Longitud total del archivo (File Length) 

Direction de entrada (unicamente en archivos binarios) 



En esta rutina no es necesario el comando CALL, ya que existe 
un programa en BASIC ocupandose del Codigo Maquina. La 
rutina lee la cabecera del programa, poniendola dentro de un 
buffer de 28 bytes especialmente creado para ello. El Codigo 
Maquina devuelve entonces el control al programa en BASIC, el 
cual examina el buffer (mediante el comando PEEK) mostrando 
en la pantalla las diferentes informaciones descritas 
anteriormente. 

Puede que te resulte diflcil encontrar inmediatamente un uso 
para este programa, pero los de este tipo son muy populares. 
Los paquetes de software que se anuncian como "rompedores de 
programas" y que permiten introducirse dentro del software 
comercial siempre tienen entre sus programas un lector de 
cabeceras (Header Reader). Otro uso para este programa es en 
aquellos que has grabado en el cassette, pero te olvidaste de 
documentar (sf, esto es algo que nos ocurre a todos, sobre todo 
a las dos de la madrugada, recien acabado nuestro programa 
"mega-bytico"). Con esta rutina podras obtener toda la 
information concerniente al programa que grabaste, sin tener 
que volver a cargarlo de nuevo. 
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1 '' LECTOR CABECERAS 

10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL 

AF i ER 240 

20 FOR n=40000 TO 40049 

30 READ a*: POKE n . VAL ( 8 &*+a$) 

40 NEXT 

50 CLS 

60 LOCATE 14, 12: PRINT" Com lenza la cinta" 

70 CALL 40000 

80 CLS: PR I NT 

90 er=PLEK (40050) :buf f=40O5i 

100 IF er=255 SOTO 130 

110 IF er=0 THEN PRINT " *ESC APE* ' ELSE PR 

INT'*TAPE ERROR*" 

120 END 

130 PRINT ' programs : " : 

140 x=buff 

150 PRINT CHR*(PEEK(x)) : 

1 6 x=x+ 1 : 1 F PEEK ( x ) < > AND x < b u f f + 1 6 GO 

TO 150 

170 PRINT 

180 a=PEtK(buf f+23) :b=PEEK(buf f +17) 

190 IF a<>0 AND b<>@ GOTO 240 

200 PRINT:PRINT"bloque: " :PEEK(buf f +16) : 

210 IF a<>0 THEN PRINT " (primer bloque)": 

220 IF b<>0 THEN PRINT" (ul tirno bloque)': 

230 PRINT 

240 PR I NT : PR I NT " t i p o p rograma : " ; 

250 n=PEEK(buf f+18) 

260 IF n=0 THEN PRINT'BASIC" : 

270 IF n = l THEN PRINT'BINARY " : 

280 IF n=2 THEN PRINT" SCREEN IMAGE": 

290 IF r,=3 THEN PRINT' ASCI I " : 

300 IF PEEK(buff+28)<>0 THEN PRINT" (pro 

tegido)' ELSE PRINT 

3 1 PR INT: PR I NT^ d i r ec c i o n da t os : " : PEEK 

(buff+21)+256*PtEK(buf f+22) 

320 PRINT:PRINT"1ongitud dates: ":PEEK 

(buff+19)+256*PEEKCbuff+20) 

330 IF nOl GOTO 370 

340 PRINT:PRINT" introduce direcc ion : " ; 

350 nn=PEEK(buf f+26)+256*PEEK(buf f+27) 

360 IF nn=0 THEN PRINT" INCOMPLETE ELSE 

PRINT nn 
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PRINT : PRINT" lonqitud total 



PEEK ( b u f f +24 ) +256*PEEh 

i 



LOCATE 3,lS:PRINT'Pul 
para la siguiente cabe 



390 WHILE INKEY*= 



buf f+25) 

a cual quier 
era " 
■ ■ : WEND 



tnr 



DAT 



M 



4 

4 

420 DATA B( 

4 



I bU ! L 
. 



>0 



1 , 73 , 9C , 1 1 , 1C , 00 , 3E , 2C , CD , Al 



140 



F5 . CD 
DATA 9C,C9,3E 

JF , 9C , 3A 
:'F . 9C „ E6 





DATA 
DATA 



0E 



BB , F 1 
FF.32.72 
9C . CB 
CB . 3F 



. 33 


.04 


32 


r 


. 9C 


„3t 


00 


■~ 


.47 


■ ji.O 


03 


c 


• di! 


,35 


9C 


c 



E d i tor Assemb 1 er 

AMMAS 1.1 

Copyright 1985 PICTURESQUE 







0001 


i 




LECT 


CABECERAS 






2 


: 








9C40 




0010 






ORG 


40000 


BCA1 




0020 


CS 


READ 


DEFL 


0BCA1H 


BB03 




0030 


KM 


RES 


DEFL 


0BB03H 


9C40 


21739C 


4 






LD 


HL . BUFFER 


9C43 


111C00 


0050 






LD 


DE.28 


9C46 


3E2C 


0060 






LD 


A f 2CH 


9C4S 


CDA1BC 


0070 






CALL 


CSREAD 


9C4B 


F5 


0080 






PUSH 


AF 


9C4C 


CD03BB 


0090 






CALL 


KMRES 


9C4F 


Fl 


0100 






POP 


AF 


9C50 


3804 


0110 






JR 


C , OK 


9C52 


C' jl i*" a! "■* L- 


0120 






LD 


(ERROR) ,A 


9C55 


i":9 


0130 






RET 




9C56 


3EFF 


0140 


OK 




LD 


A , 255 


9C5S 


32729C 


0150 






LD 


(ERROR) ,A 


9C5B 


3E00 


0160 






LD 


A.0 


9C5D 


328F9C 


0170 






LD 


(PRTECT).A 


9C60 


3A859C 


0180 






LD 


A, (BUFFER+18) 


9C63 


CB47 


0190 






BIT 


0.A 


9C65 


2803 


0200 






JR 


Z , NOPROT 


9C67 


328F9C 


0210 






LD 


CPRTECT) ,A 


9C6A 


E60E 


0220 


NOPROT 


AND 


i4- 


9C6C 


CB3F 


0230 






SRL i 




9C6E 


32859C 


0240 






LD 


(BUFFER+18), A 
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9C71 C9 
9C72 00 
1 C 
9C8F 00 



0^">0 KET 
0260 ERROR DEFB 
0270 BUFFER DEFS 2': 
0230 PRTECT DEFB 
0290 END 




26 



Impresion de cuatro caracteres 



Si deseas un bloque de caracteres impresos formando un 
cuadrado (particularmente usado en graficos definidos por el 
usuario, UDG), entonces esta es la rutina que buscabas. 
Rapidamente y sin esfuerzo, esta rutina pondra en la pantalla 
un bloque de caracteres. 

El formato es el siguiente: 

CALL 40000, X, Y, C 

X e Y son las coordenadas correspondientes a la situacion del 
bloque en la pantalla. X puede estar en cualquier posicion entre 
y 639, mientras que las posiciones para Y estaran entre y 
399. Observa que el tamano del bloque limita la posicion mas 
alta de estos margenes, aproximadamente en 20. Las 
coordenadas X e Y corresponden al pixel de la esquina superior 
izquierda del bloque de caracteres. 

C corresponde al codigo ASCII del primer caracter, 
correspondiendo los otros tres a los siguientes codigos dentro 
del ASCII. Esto es extremadamente limpio y util para la 
creacion de graficos definidos por el usuario (UDG) donde a 
menudo se utilizan caracteres diferentes para cada una de las 
partes de un bloque mas grande. 



CUATRO i 
6 : MEM0R" 



1 ■' IMr-'KhSION 

10 SYMBOL ARTER 2 

AFTER 240 

20 hOR n=40000 TO 40048 

30 READ a*: POKE n.VALC 

40 NEXT 

50 DATA DD.4E.00.DD.6E 



•ARACTLKES 



60 L'ATA 
70 DATA 



5E 
CD 



80 DATA CI .7?.0C,i: 



DATA 3E 



04,00,56 
C0,bB.Cl 



1 A vP, 



iU 



CD 



+a$ 



02, DD 
06 

0C 

FC 
hC 



,C5 

bb 

, 10 



D5 
CD 
CI 
El 



.E5 
.FC 
,E1 
, C 9 



''MB0L 



DD 
C5 
BB 
Dl 
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9C40 
BBC6 
BBC 8 
BBFC 
9C40 
9C43 
9C46 
9C49 
9C4C 
9C4F 
9C51 

9 !":!=; ft 



9C54 
9C57 
9C5S 
9C59 
9C5A 
9C5B 
9C5E 
9C5F 
9C60 
9C61 

9C65 
9C66 
9C67 
9C68 
9C6A 
9C6B 
9C6C 
9C6E 
9C70 



DD4E00 

DD6E02 

DD6603 

DD5E04 

DD5605 

0602 

D5 

E5 

Co 

CDC0BB 

CI 

0C 
C5 

CDFCBB 
CI 

0C 

C5 

CDFCBB 

CI 

El 

Dl 

3E10 

2B 

3D 

20FC 

10E1 

r.9 



C) j_ 

v-i Ot v 

0010 

0020 
Li ft 

4 
0050 

,-•-, 

0070 

ft ft ft ft 

_ ^ # z. 

Q 
0100 
0110 
0120 

ft 1 3 ft 

0140 

0150 
0160 
0170 
1 8 

0190 

0200 

0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 

0300 

0310 
0320 
0330 
0340 



IMP 4CARAC 



ASKCUR 
MOVABS 
GRACHR 



NXTCHR 



NEWRC 



uRh 

DEFL 

DEFL 

DEFL 

LD 

LU 

LD 

LD 

LD 

LD 

F'ij: 

P!J:: 

PL): 

CALL 

POP 

LD 

INC 

PUSH 

CALL 

POP 

LD 

INC 

PUSH 

CALL 

POP 

POP 

POP 

LD 

DEC 

DEC 

JR 

DJNZ 

RET 

END 



£j. 

0BBC6H 
0BBC0H 
0BBFCH 
C . ( I X+0 ) 
' IX+2) 
IX+3) 
IX+4) 
IX+5) 



L. 
H, 

r— 

D. 



DE 

HL 

BC 

MOVABS 

BC 

A,C 

C 

BC 

GRACHR 

BC 

A,C 

C 

BC 

GRACHR 

BC 

HL 

DE 

A . 1 6 

HL 

A 

NZ . NEWROi 

NXTCHR 
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Inversor de pantalla 



Esta rutina rota la pantalla 180 grados independientemente de 
cual sea su posicion; esto hace que la parte superior se 
convierta en la inferior. Unicamente trabaja en Mode 1, a pesar 
de lo cual puede ser de gran efectividad, como muestra nuestro 
programa de demostracion. 

Para acceder a esta rutina, simplemente escribe: 

CALL 40000 



1 ■" INVERSOR DE PANTALLA 


10 SYMBOL AFTER 256: MEMORY 39999: SYMBOL 


AFTER 240 


20 FOR n=40000 TO 40143 


30 READ a$:P0KE n. VAL( "Sc'+a*) 


40 NEXT 


50 DATA 2i,00,00 f CD,iA.BC.EB.2E.i8.26 


60 DATA 27. CD. 1 A. BO. 23. 70. 06. 38. 67. 0E 


70 DATA 64.D5.E5.06.50.C5.1A.D5.56.06 


80 DATA 8 . 5F . 1 F . 7B . CB . 1 2 . 1 F . 1 . F8 . 6 


90 DATA 04,0F.CB.0A.10.FB.72.D1.12.1C 


100 DATA 20.0A.14.7A.E6.07.20,04.7A.D6 


110 DATA 08 


i 57 , 7D , 2D 


.B7,20,0A,7C 


. 25 . E6 


120 DATA 07 


20,04,70 


06.08,67,01 


10.09 


130 DATA El 


. D i , 7A , 06 


.08.57.E6.38 


.20.14 


140 DATA 7 A 


06.40,57. 


7B,C6,50,5F 


30,0 A 


150 DATA 14 


.7A.E6.07 


20,04.7A.D6 


.08.57 


160 DATA 70 


D6. 08.67. 


p.-i, Of; pp I;p 


20,14 


170 DATA 70 


06,40.67 


7D,D6,50,6F 


30. 0A 


180 DATA 70, 25. E6 f 07,20,04.70.06. 


08.67 


190 DATA 0D. 20. 86. 09 
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>C40 



0001 
0002 
0010 



INVE PANTALLA 
ORG 40000 



BCiA 


iA & y i."i 


Ci 


HRPOS DEFL 


. 0BC1AH 


9C 40 21ft ft ft ft 


C) £~i ~; {a 




LD 


HL,0 


9C43 CD 1 ABC 


4 




CALL 


. CHRPOS 


9C46 EB 


i/i v? !~i 




EX 


DE = HL 


9C47 2hlS 


l-t i"i A & 




LD 


L.24 


9C49 2627 


"J? Ch 




LD 


H , 39 


9C4B CD 1 ABC 


iA Ci p, 




CALL 


CHKPOS 


9C4E 23 


9 & 




INC 


HL 


9C4F 7C 


i $ $ 




LD 


A ? H 


VCbft C638 


0110 




ADD 


.-. nr .■■ 
M , -JO 


9C52 67 


0120 




LD 


H,A 


9C53 ftEf : .4 


0130 




LD 


C . 1 


9C55 D5 


0140 


N> 


<TLIN PUSH 


DE 


9C56 E5 


0150 




PUSH 


HL 


VC5f'' 06"!0 


1 6 ft 




LD 


B,80 


9C59 C5 


17ft 


N> 


<TBYT PUSH 


BC 


"'1— _irt lri 


0180 




LD 


A . ( DE ) 


9C5B D5 


1 9 




PUSH 


DE 


9C5C 56 


2 




LD 


D.(HL) 


9C5D 0608 


2 1 




LD 


B.8 


9C5F 5F 


ft 2 2 ft 


INVERT LD 


E,A 


9C60 IF 


0230 




RRA 




9C61 7B 


0240 




LD 


A.E 


9C62 CB12 


0250 




RL 


D 


9C64 IF 


0260 




RRA 




9C65 10F8 


0270 




DJNZ 


INVERT 


9C67 0604 


0280 




LD 


B,4 


9C69 0F 


2 9 ft 


RC 


HATE RRCA 




9C6A CB0A 


3 




RKC 


D 


9C6C 10FB 


0310 




DJNZ 


ROTATE 


9C6E 72 


0320 




LD 


(HL).D 


9C6F Dl 


0330 




POP 


DE 


9C70 12 


0340 




LD 


(DE).A 


9C71 1C 


0350 




INC 


E 


9U72 200 A 


0360 




JR 


NZJDEBTOK 


9C74 14 


0370 




INC 


D 


9C75 7A 


0380 




LD 


A,D 


9C76 E607 


039'0 




AND 


— ; 
f' 


9C78 2004 


0400 




JR 


NZJ3EBT0K 


9C7A 7A 


0410 




LD 


A,D 


9C7B D608 


0420 




SUB 


y 


9C7D 57 


0430 




LD 


D.A 


9C7E 7D 


0440 


DEBTOK LD 


A,L 


9C7F 2D 


0450 




DEC 


j_ 


9C80 B7 


0460 




OR 


A 


9C81 200A 


0470 




JR 


NZ.HLBTOK 


9C83 7C 


0480 




LD 


AJH 


9C34 25 


0490 




DEC 


H 
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9C85 


L60 ,"' 


9C87 


2004 


9C8A 


i ■_■ 
C608 


9L-8L- 
9C8D 


C 1 i' 

CI 


9C8E 


10C9 


9C90 


El 


9C91 


Dl 


~ — ... — 


•— i a 


VL- 9 2 


r'fi 


9C93 


C6 08 


9C95 


cr-7 

■j r 


9C96 

9C98 


E688 
2014 


9C9A 


7A 


9C9B 


D640 


9C9D 


•J i" 


9C9E 


7B 


9C9F 


C6~'0 


9CA1 


5F 


9CA2 


3 A 


9CA4 


14 


9CA5 


7A 


9CA6 


E607 


9CA8 


2 4 


9CAA 


7A 


9CAB 


U608 


9CAD 


cr~7 
•J f 


9CAE 


7C 


9CAF 


D608 


9CB1 


67 


9CB2 


E638 


9CB4 


FE38 


9CB6 


2014 


9CB3 


7C 


9CB9 


C640 


9CBB 


67 


9CBC 


7D 


9CBD 


D650 


9CBF 


6F 


9CC0 


300 A 


O i~ |~ '"".' 


T 


.•* 1 •» ,• f, 


i L- 


9CC3 


25 


9CC4 


E607 


yiJU6 


2004 


9CC8 


7C 


9CC9 


C608 



C) 7~i C) Oi 


AND 


l" 


0510 


JR 


NZ . HLBTOK 


0520 


LD 


A,H 


0530 


ADD 


a . y 


0540 . 


LD 


H.A 


05:j0 HLBTuK 


POP 


BC 


C) j-j .-■-, Qi 


DJNZ 


NXTBYT 


0570 


POP 


HL 


5 3 


POP 


DE 


0ri90 


LD 


A,D 


6 


ADD 


A .3 


0610 


LD 


D, A 


0620 


AND 


C, .-i 


0630 


JR 


NZ , DELNOK 


0640 


LD 


A ..D 


0650 


SUB 


64 


£}t'"-.iS0 


LD 


D,A 


,■•-, 7* 


LD 


A » E 


0680 


ADLi 


A. 80 


0f-|V0 


LD 


E,A 


0) ~? fi 


JR 


NC . DELNOK 


0710 


INC 


D 


0720 


LD 


A,D 


0730 


AND 


t 


0740 


JR 


NZJJELNOK 


0750 


LD 


A,D 


0760 


SUB 


8 


0770 


LD 


D. A 


0780 DELNOK 


LD 


A ? H 


0790 


SUB 


8 


8 


LD 


H ? A 


0810 


AND 


56 


0820 


CP 


56 


0830 


JR 


NZJHLLNOK 


0840 


LD 


AJH 


0850 


ADD 


A. 64 


0860 


LD 


H,A 


0870 


LD 


A.L 


0880 


SUB 


80 


0890 


LD 


L.A 


0900 


■JR 


NC . HLLNOK 


0910 


LD 


AJH 


0920 


DEC 


H 


09' 30 


AND 


l"" 


0940 


JR 


NZ . HLLNOK 


0950 


LD 


AJH 


0960 


ADD 


A, 8 
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VI 



0U 
D 20c 
F C? 



'70 LD 
'30 HLLNOK DEC 
. .'90 JR 
1000 RET 
1010 END 



H • (4 

C 
NZ.NXTLIN 
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Copiador de texto 



No hay gran cosa que decir sobre esta rutina, excepto que puede 
aplicarsele la maxima que dice "lo pequeno es bonito". Esta 
rutina puede "volcar" el texto de la pantalla a una impresora 
conectada a tu Amstrad. 

Esto es util en gran numero de situaciones en las cuales copiar 
directamente una pantalla llena de numeros o datos, es mucho 
mas facil que alterar tu programa con cientos de PRINT#-8s 
para sacar cada una de las lfneas de texto a la impresora. Con 
esta rutina obtienes al mismo tiempo que los datos en la 
pantalla, una copia de esta pantalla en la impresora. 

Para usar esta rutina, unicamente escribe CALL 40000, despues 
rueda el programa del cual quieres sacar copias de la pantalla. 



1 ' COPIADOR DE TEXTO 








10 SYMBOL AFTER 256: MEMORY 3'i 


."_."_/'. 


■■ ■ '-; 


/MBOL 


AFTER 240 








20 FOR n=40000 TO 40054 








30 READ a*: POKE n.VALC&'+a*' 


: 






40 NEXT 








50 DATA 2E .01. CD .17. BC . 0C , 04 


.C5 


» if. '*!"' 


.01 


60 DATA E5,CD.75.BB.E1,CD.60 


BB 


CD 


.2E 


7 DATA BD . 38 . FB , CD .31. BD . 24 


10 


.ED 


. 2'i": 


8 DATA 3E . D . CD . 2E . BD . 38 . FB . 


CD 


31 


,BD 


90 DATA 3E.0A.CD.2E,BD.38.FB 


CD 


31 


.BD 


100 DATA C1,0D.20.D1,C9 
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9C40 



0001 : 


COP I TEXT 


0002 ; 




0010 


ORG 4000 



34 



BCl 7 




0020 


CHRLIM 


DEFL 


0BC17H 


BB75 




0030 


CURSOR 


DEFL 


0BB75H 


BB60 




0040 


RDCHAR 


DEFL 


0BB60H 


BD2E 




0050 


BUSY 


DEFL 


0BD2EH 


BD31 




6 


SENDER 


DEFL 


0BD31H 


VC40 


2E0i 


0070 




LD 


L.l 


9C42 


CD17BC 


0080 




CALL 


CHRLIM 


9C45 


0C 


0090 




INC 


c 


9C46 


04 


1 




INC 


B 


9C47 


C5 


0110 


NXTROW 


PUSH 


BC 


9C43 


2601 


0120 




LD 


H.l 


9C4A 


E5 


0130 


NXTCOL 


PUSH 


HL 


9C4B 


CD75BB 


0140 




CALL 


ci ipsnp 


9C4E 


El 


0150 




POP 


HL 


9C4F 


CD60BB 


0160 




CALL 


RDCHAR 


9C52 


CD2EBD 


0170 


UAIT1 


CALL 


BUSY 


9C55 


33FB 


i 8 




JR 


CWAIT1 


9C57 


CD31BD 


1 9 




CALL 


SENDPR 


9C5A 


24 


2 




INC 


H 


9C5B 


10 ED 


0210 




DJNZ 


NXTCOL 


9C5D 


2C 


0220 




INC 


L 


9C5E 


3E0D 


0230 




LD 


A . 1 3 


9C60 


CD2EBD 


0240 


UAIT2 


CALL 


BUSY 


'■T.i-,?. 


33 FB 


0250 




JR 


C.WAIT2 


9C65 


CD31BD 


0260 




CALL 


SENDPR 


9C68 


3E0A 


0270 




LD 


A, 10 




CD2EBD 


0280 


WAITS 


CALL 


BUSY 


9C6D 


38FB 


0290 




JR 


C.WAIT3 


9C6F 


CD31BD 


0300 




CALL 


SENDPR 


9C72 


CI 


0310 




POP 


BC 


9C73 


0D 


0320 




DEC 


c 


9C74 


20D1 


0330 




JR 


NZ , NXTROW 


9C76 


C9 


0340 
0350 




RET 
END 
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Para completar esta rutina, tenemos una demostracion que es 
uno de los procesadores de texto mas cortos que hayas visto. 
Este programa acepta inputs de 80 caracteres en screen Mode 
0, dejandolas en la pantalla hasta que es introducido un espacio 
o es alcanzada la parte inferior de la pantalla. Cuando alguna 
de estas cosas ocurre, la rutina Copiador Texto es llamada y la 
pantalla es copiada en la impresora. Pon el codigo de impresion 
que desees en la lfnea 1 (lfnea de doble espacio, enfasis de 
impresion). Este programa puede no ser el Wordstar, pero 
siempre tendras la posibilidad de mejorarlo por ti mismo. 



1 • 


Afiad 


e aqui 


tus 


Z O d 


ig>: 


!=> 


de contro 


P 


ara la impresc 


ra 












10 


MODE 


2:INK 


1,26: 


INK 





■ V 


: BORDER 13 


:PEN 


1 


PAPER 


: CLS 














20 


FOR T 


= 1 TO 


24 












30 


LINE 


INPUT 


A*:IF 


M-- 


_ i 


1 


THEN CALL 


400 


00 


















40 


NEXT 
















50 


CALL 


40000 
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Rotacion a la derecha 



Esta rutina desplazara (scroll) hacia la derecha una ifnea de 
texto, haciendo desaparecer todos los pixels por la derecha y 
reaparecer por la izquierda (creando un efecto de rotacion 
sobre la pantalla). 

Pensando que esta rutina unicamente trabaja en Mode 1, tiene 
un numero de parametros para hacerla completamente flexible 
en su uso. 

CALL 40000, X, Y, N 

X equivale a las columnas, mientras que Y corresponde a la 
lfnea desde donde comenzara el desplazamiento. N equivale al 
numero de caracteres que queremos desplazar hacia la derecha 
en esa lfnea. Con esto, en lugar de producir desplazamientos 
indiscriminados de grandes areas de la pantalla, podemos 
desplazar pequenas porciones de texto o UDGs y bloque de 
graficos, en juegos podemos mover de manera precisa sfmbolos 
graficos. 

Puedes tener un numero de areas de la pantalla desplazandose 
simultaneamente, aunque en este caso es necesario para cada 
una de ellas una llamada CALL. Ya que con un CALL 
unicamente desplazamos un pixel cada columna, es necesario el 
uso de loops para mantener el movimiento de forma constante. 

Aquf tenemos un ejemplo de la rutina desplazando dos areas de 
la pantalla en Mode 1. Antes de correr el programa, llena la 
pantalla con caracteres distintos unos de otros, o escribe 
cualquier descripcion. 



10 FOR T = 1 to 500 
20 CALL 40000, 5, 
30 CALL 40000, 12, 
40 NEXT 




1 '• ROTACION A DERECHA 
10 SYMBOL AFTER 256: MEMORY 
AFTER 240 



'MBOL 



20 
30 
40 
50 
60 
70 
80 
90 

100 
110 

120 
130 
140 



FOR n=40000 TO 



READ 
NEXT 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



a*: POKE n 



40094 

I ) A I / I v 



+a*> 



FE,03,C0,DO,6E, 



DD, 

se! 

7C. 



7E, 04, 81,06. 
41 .Cb.20.05 
7E , F5 , 5D , 54 
25. E6. 07.20 



02, 
02, 
0E, 
7LJ. 
04, 



2D , DD , 
67. CD. 
08, E5. 
2D , B7 , 
70 . C6 , 



4E, 

1A. 
C5, 
20, 
08, 



00 

BC 
CB 
0A 



1A.CB.3E.38 
DF.CB.5E.28 
F1,38,04,CB 
5l-.28.02.CB 
67,0D,20,BD 



04.CB.9F.18.02,CB 
02,CB,FF,12,10,DB 
9E,18,02,CB,DE,CB 
FE.C1 .El .7C.C6.08 
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B 







0001 ; 


ROTA 


DERECHA 






0002 : 






40 




0010 


ORG 


40000 


1A 




0020 CHRPOS DEFL 


0BC1AH 


40 


FE03 


0030 


CP 


o 


42 


C0 


0040 


RET 


NZ 


43 


DD6E02 


0050 


LD 


L.CIX+2) 


46 


2D 


0060 


DEC 


L 


47 


DD4E00 


0070 


LD 


C, (IX+0) 


4A 


DD7E04 


0080 


LD 


A, UX+4) 


4D 


81 


0090 


ADD 


c 


4E 


D602 


0100 


SUB 


■lI 


50 


67 


0110 


LD 


H,A 



38 



9C51 


CD 1 ABC 


0120 




CALL 


CHRPOS 


9C54 


23 


0130 




INC 


HL 


9C55 


41 


0140 




LLi 


B . C 


9C56 


CB20 


0150 




SLA 


B 


9C5S 


05 


1 6 




DEC 


B 


9C59 


0E08 


0170 




LD 


C - 8 


9C5B 


E5 


0180 


NXTROW 


PUSH 


HL 


9C5C 


C5 


0190 




PUSH 


BC 


9C5D 


CB3E 


2 




SRL 


(HL) 


9C5F 


7E 


0210 




LD 


A. (HL) 


9C60 


F5 


0220 




PUSH 


AF 


9C61 


5D 


0230 


NXTBYT 


LD 


EJ_ 


?C6'Z 


54 


0240 




LD 


D,H 


9C63 


7D 


0250. 




LD 


A.L 


9C64 


2D 


0260 




DEC 


L 


9C65 


B7 


0270 




OR 


A 


9C66 


200A 


0280 




JR 


NZ . HLOK 


9C68 


7C 


0290 




LD 


A.H 


9C69 


[S.'Tl 


3 




DEC 


H 


9C6A 


E607 


3 1 




AND 


t'" 


9C6C 


2004 


0320 




JR 


NZ . HLOK 


9C6E 


7C 


0330 




LD 


A.H 


9C6h 


C608 


0340 




ADD 


A. 8 


9C71 


£* (' 


0350 




LD 


H.A 


9C72 


1A 


0360 


HLOK 


LD 


A.(DE) 


9C73 


CB3E 


0370 




SRL 


(HL) 


9C75 


3804 


0380 




JR 


C, SETBIT 


9C77 


CB9F 


0390 




RES 


C' a M 


9C79 


1802 


0400 




JR 


TSTBIT 


9C7B 


CBDF 


0410 


SETBIT 


SET 


3 . A 


9C7D 


CB5E 


0420 


TSTBIT 


BIT 


3.CHL) 


9C7F 


2802 


0430 




JR 


Z, BITOK 


9C8i 


CBFF 


0440 




SET 


7, A 


9C83 


12 


0450 


BITOK 


LD 


(DE) .A 


9C84 


10DB 


0460 




DJNZ 


NXTBYT 


9C86 


Fl 


0470 




POP 


AF 


vf'R7 


3804 


0480 




JR 


C . WRAP 


9C89 


CB9E 


0490 




RES 


3.(HL) 


9C8B 


1802 


0500 




JR 


ENDPIX 


9C8D 


CBDE 


0510 


WRAP 


SET 


3.CHL) 


9C8F 


CB5F 


0520 


ENDPIX 


BIT 


3 . A 


9C9i 


2802 


0530 




JR 


Z. ROWFIN 


9C93 


CBFE 


0540 




SET 


7,(HL) 


9C95 


CI 


0550 


ROWFIN 


POP 


BC 


9C96 


El 


0560 




POP 


HL 


9C97 


7C 


0570 




LD 


A,H 



39 



■■ ! L 


'-•' !-! 


U60o 


0580 


ADD 


A. 8 


■ ! L 


?A 


O i 


0590 


LD 


H.A 


■'!_ 


9B 


0U 


0600 


DEC 


f: 


••'I 


9C 


20BD 


0610 


JR 


NZ . NXTROW 


•'!_ 


9E 


uv 


0620 

1 -. !"! 


RET 
END 
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Rotacion a la izquierda 



Esencialmente esta rutina es la misma que la ultima, 
unicamente que el desplazamiento (scroll) se produce hacia el 
lado opuesto. 

La declaracion CALL es la misma: 

CALL 40000, X, Y, N 

Esta rutina (como la anterior) trabaja unicamente en Mode 1 y 
tambien necesita ser llamada desde un loop si se quiere 
mantener el movimiento de forma continua. Para mas detalles 
consultar la rutina ROTACION DERECHA. 



1 ' 




ROTACION A IZQUIERDA 






10 


SYMBOL 


AFTER 256: MEMORY 


3999c 


: S\ 


•MB0L 


AFTER 240 










20 


FOR n=4 


0000 TO 40037 








30 


READ a* 


:P0KE n,VAL( , & , + 


a*) 






40 


NEXT 










50 


DATA FE 


,03,C0,DD,6E,02, 


20 , DD , 


66. 


04 


60 


DATA 25 


,CD, 1A,BC,DD,46, 


00,CB. 


20 . 


05 


70 


DATA 0E 


,08,E5,C5,CB,26, 


7E . F5 . 


5Ci", 


54 


80 


DATA 2C 


,20, 0A,24,7C,E6, 


07,20. 


04, 


7C 


90 


DATA D6 


, 08,67,1 A, CB, 26, 


38,04, 


CB . 


A7 


10C 


1 DATA 1 


3,02,CB,E7,CB.66 


,28,02 


,CE 


. . C7 


110 DATA 1 


2,10,DD,F1,38,04 


. CB , M 


.IS 


1.02 


12C 


> DATA C 


B,E6,CB,67,28,02 


,CB,C6 


,Ci 


.El 


130 DATA 7 


I:,C6, 08,67, 0D, 20 


,BF,CV 
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E d i tor Assemb 1 er 

AMMAS 1 . 1 

Copyright 1985 PICTURE:; 



:0i IE 









0001 


; 


ROTA 


IZOUIERDA 






0002 


: 






9C 


40 




1 




ORG 


40000 


BC 


1A 




2 


CHRP08 


DEFL 


0BC1AH 


9C 


40 


FE03 


3 




CP 


3 


VI 


4^: 


U0 


0040 




RET 


NZ 


9C 


43 


DD6E02 


0050 




LD 


L.(IX+2) 


9C 


46 


2D 


6 




DEC 


L 


9C 


47 


DD6604 


0070 




LD 


H. CIX+4) 


9C 


4 A 


•-cr 


in in |~! &i 




DEC 


H 


9C 


4B 


CD 1 ABC 


0090 




CALL 


CHRPOS 


9C 


4E 


DD4600 


0100 




LD 


B, CIX+0) 


9C 


51 


CB20 


0110 




SLA 


B 


?L 


53 


05 


0120 




DEC 


B 


9C 


54 


0E08 


0130 




LD 


C . 8 


9C 


56 


E5 


0140 


NXTROW 


PUSH 


HL 


9C 


•J i" 


C5 


0150 




PUSH 


BC 


9C 




CB26 


0160 




SLA 


(HL) 


9C 


5A 


7E 


0170 




LD 


A. (HL) 


9C 


5B 


F5 


0180 




PUSH 


AF 


9C 


5C 


5D 


0190 


NXTBYT 


LD 


E.L 


9 1 


5D 


54 


0200 




LD 


D.H 


9C 


5E 


2C 


0210 




INC 


L 


9C 


5F 


200A 


0220 




JR 


NZ , HLOK 


9C 


61 


24 


0230 




INC 


H 


9C 


62 


7C 


0240 




LD 


A,H 


9C 


63 


E607 


0250 




AND 


r 


9C 


65 


2004 


0260 




JR 


NZ,HLOK 


9C 


O >'' 


7C 


0270 




LD 


A,H 


9C 


68 


D608 


0280 




SUB 


8 


9C 


6A 


67 


0290 




LD 


H.A 


9C 


6B 


1A 


0300 


HLOK 


LD 


A,(DE) 


9C 


6C 


CB26 


0310 




SLA 


(HL) 


9C 


6E 


3804 


0320 




JR 


C. SETBIT 


9C 


70 


CBA7 


0330 




RES 


4 f A 


9C 


-7-| 
t X_ 


1802 


0340 




JR 


TSTBIT 


9C 


74 


CBE7 


0350 


SETBIT 


SET 


4. A 


9f 


?{-. 


P.BAA 


0360 


TSTBIT 


BIT 


4. (HL) 


9C 


f '-.' 


2802 


0370 




JR 


Z, BITOK 


9C 


7A 


CBC7 


0380 




SET 


0.A 


9C 


7C 


12 


0390 


BITOK 


LD 


CDE) .A 


9C 


7D 


10DD 


0400 




DJNZ 


NXTBYT 


9C 


7F 


Fl 


0410 




POP 


AF 



42 



:10 



OH 

8C 
8E 
SF 
90 
91 



3o04 
CBA6 
1302 
BE6 
B67 
802 
BC6 
1 



El 



fy-'i wi-i 



94 0D 

95 20BF 
97 f:9 



0420 




JR 


C.WRAP 


0430 




RES 


4, CHL) 


0440 




JR 


ENDPIX 


0450 


WRAP 


SET 


4. (HL) 


0460 


ENDPIX 


BIT 


4. A 


0470 




JR 


Z . ROWF I N 


0480 




SET 


0. (HL) 


0490 


ROWFIN 


POP 


BC 


0500 




POP 


HL 


0510 




LD 


A,H 


0520 




ADD 


A. 8 


0530 




LD 


H,A 


0540 




DEC 


c 


0550 




JR 


NZ , NXTROl 


0560 




RET 




0570 




END 
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Fi jar velocidad 



Este programa puede ser titulado 'Turbo Load and Save'; puede 
ser utilizado no unicamente para aumentar la velocidad de 
grabacion y recuperacion de nuestros programas, sino tambien 
para reducirla -quizas para una copia de seguridad o para 
aparentar que un programa es mas largo de lo que es en 
realidad. 

Bien, suficiente sobre como y con que trabaja este programa. 
Para alterar las velocidades, esta rutina hace uso de otra 
localizada en la ROM que tiene el Amstrad. Con el BASIC del 
Amstrad tu puedes unicamente seleccionar SPEED WRITE 0, 
(1000 baudios) y SPEED WRITE 1, (2000 baudios). Con esta 
rutina podras seleccionar dentro de un margen de velocidades 
mucho mas amplio. Sin embargo, a partir de cierta velocidad 
cargar y salvar programas se hace cada vez mas inseguro. 
Nosotros encontramos, despues de una constante 
experimentacion, que la velocidad mas rapida con fiabilidad era 
de 3300 baudios, pero que esa fiabilidad unicamente se obtenfa 
si la carga y recuperacion del programa se realizaba en el 
mismo ordenador. 

Dirigirse al 'Firmware Manual', capftulo 14.125, ofrecido por 
Amsoft para una explicacion completa sobre terminos tales 
como "longitud mitad-cero" (half-zero length) y el 
funcionamiento del cassette. Todo lo que diremos aquf es que el 
formato de esta rutina es: 

CALL 40000, H, P 

H es la longitud de medio cero, pero todo lo que aquf 
necesitamos conocer es que 333,333 (un tercio de millon) 
dividido por este valor, nos dara un valor aproximado de la 
velocidad en baudios. Segun esto, un valor de H = 167 nos dara 
una velocidad aproximada de 2000 baudios. 

P equivale al nivel de 'Precompensacion' (dirigirse de nuevo al 
Firmware Manual para una explicacion detallada). 
Teoricamente, este valor podia situarse entre y 255, pero en 
la practica valores entre 2 y 100 son mas probables. Los niveles 
de precompensacion que hemos encontrado mas adecuados han 
sido entre 10 y 30. 
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En el caso de no especificar ningun parametro despues del 
estamento CALL, el ordenador asignara valores de 100 para H y 
10 para P. Esto da una velocidad aproximada de 3300 baudios. 

Experimenta con esta rutina, ya que para tu equipo pueden 
existir otros mar genes de velocidad distintos a los aquf 
indicados. 



1 






FIJAR 


v'ELOC 


I DAD 






10 


SYMBOL AFTER 2 


56: MEMORY 3? 


99' : 


' : SYMBOL 


AFTER 240 












20 


FOR n=40000 T0 


4002 


— ' 






30 


READ 


a* 


:P0KE n 


, VAL ( 


'i/.'+B.i') 






40 


NEXT 














50 


DATA 


FE 


.00,20. 


07.21 


.64.00. 


3E 


0A,13 


60 


DATA 


0C 


,FE,02, 


I:0.DD 


,7E,00, 


DD 


6E,02 


70 


DATA 


DD 


,66,03, 


CD . 68 


, BC , C9 







Ed 


itc 


■r- AssetT 


b 1 er 








AMMAS 


; 1.1 










Copyr 


ight 19 


85 PICTURESQUE 








0001 


? 


FIJA 


VELOCIDAD 






0002 


* 

f 






9C 


40 




0010 




ORG 


40000 


BC 


68 




0020 


SPEED 


DEFL 


0BC68H 


9C 


40 


FE00 


0030 




CP 





9C 


42 


2007 


0040 




JR 


NZ . GTVALS 


9C 


44 


216400 


0050 




LD 


HL,100 


9C 


47 


3E0A 


0060 




LD 


A, 10 


9C 


49 


180C 


0070 




JR 


CONT 


9C 


4B 


FE02 


0080 


I3TVALS 


CP 


'Z. 


9C 


4D 


C0 


0090 




RET 


NZ 


9C 


4E 


DD7E00 


0100 




LD 


A, (IX+0) 


9C 


51 


DD6E02 


0110 




LD 


L.CIX+2) 


9C 


54 


DD6603 


0120 




LD 


H.CIX+3) 


?L 


57 


CD68BC 


0130 


CONT 


CALL 


SPEED 


9C 


5A 


C9 


0140 
0150 




RET 
END 
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Desplazamiento rapido 
de la pantalla 



Para escribir muchos tipos de prograrr.as de accion, asi como 
para conseguir excitantes efectos visuales para casi cualquier 
programa, un desplazamiento (scroll) rapido, y sin salto, de la 
pantalla es una de las mas utiles adiciones a tu coleccion de 
rutinas en Codigo Maquina. 

Una vez llamada esta rutina, puede desplazar toda la pantalla el 
espacio de una linea hacia arriba o hacia abajo. El formato para 
CALL es: 

CALL 40000, C, UD 

C corresponde al color de la tinta que tomara la lfnea "vacia" 
que aparecera arriba o abajo, dependiendo del tipo de scroll que 
uses. El parametro UD define la direccion del movimiento; '0' 
para abajo y '1' para arriba. 



1 




DESPLAZ 


AMIENTO 


DE 


PANTALLA 




10 


SYMBi 


J! AFTEF 


: 256:MEM0R" 


i' '-IV 




fMBOL 


AFTER 240 












20 


FOR ! 


-1=40000 


TO 4001 


J 








30 


READ 


a* : POKE 


n , VAL ( 


■&'+a*> 






40 


NEXT 














50. 


DATA 


FE,02,C 


:0.DD.46 


.00 


, DD f 


7E.02 


. CD 


60 


DATA 


2C,BC,C 


D , 4D , BC 


, C9 









E d i tor- Assemb 1 er 

AMMAS 1.1 

Cop y r i g h t 1 985 P I CTURESOUE 

0001 ; DESP PANTALLA 

0002 ; 

9C40 0010 0R6 40000 

BC2C 0020 ENCODE DEFL 0BC2CH 

BC4D 0030 HWR0LL DEFL 0BC4DH 

9C40 FE02 0040 CP 2 
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"'C 


42 


C0 


0050 


RET 


NZ 


"'C 


43 


DD4600 


0060 


LD 


B, (IX+0) 


">f 


46 


DD7E02 


0070 


LD 


A f CIX+2) 


"!f 


4? 


CD2CBC 


00S0 


CALL 


ENCODE 


~>c 


4C 


CD4DBC 


0090 


CALL 


HWROLL 


>'C 


4F 


C9 


0100 
0110 


RET 
END 
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La pista de los diamantes 



Para demostrar la rapidez y suavidad de este scroll 
(desplazamiento), aqul tenemos un corto programa con cuya 
ejecucion podras divertirte mucho. Esta basado en esos juegos 
en los cuales se desplaza una pista y debemos evitar vernos 
fuera de sus lfmites. Nuestro juego es mas complicado que eso. 
Tu estas viajando a traves del famoso Central African Diamond 
Trail (pista o sendero de diamantes del Africa Central) en busca 
de sus escurridizas gemas. El sendero es peligroso y contiene 
muchos riesgos potencialmente fatales -indicados por una cruz 
roja. Los diamantes de suave brillo azul son los que has venido a 
buscar y podras conseguirlos pasando por encima de ellos con tu 
coche, esto te dara 50 puntos extra. Tambien conseguiras 10 
puntos por cada decima de milla que viajes y el juego continua 
hasta que te estrelles. 

El juego utiliza el fast scroll (desplazamiento rapido) para 
mover hacia ti la carretera suave y rapidamente. El juego 
tambien indica la puntuacion maxima y la que vamos 
obteniendo. Adelante... ponte a jugar. 



♦ ♦ 



♦♦v 



* ♦ ♦ ♦ 



♦ ♦ 
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10 RANDOMIZE TIME:hi=0 

20 CLS:sc=0:x=3+INTCRNO*24) :y=10 :c=x+y/2 

30 x=3+INTCRND*24> :c=x+v/2 

40 LOCATE 1.1: PR I NT STRING*Cx.CHR*( 143) ) 

; STRING* <y, ' ' > ; STRING* C 4 0-x-y , CHR*( 143) 

) 

50 IF RND<0.3 THEN PEN 3: LOCATE x+l+INTC 

RND* v ) , 1 : PR I NT CHR* ( 2 3 ) : PEN 1 

60 IF RND<0.15 THEN PEN 2:L0CATE x+l+INT 

( RND*v ) . 1 : PR I NT CHR* ( 227 ) : PEN 1 

70 LOCATE c. 22: PR I NT" * 

30 c=c+ ( INKEY (8) =0 ) - ( INKEY ( 1 ) =0 ) 

90 CALL 40000.0,0 

1 LOCATE 15,25: PR I NT " PUNTU AC I ON " = ' : sc 

110 t=TESTCc*l6-8,56) 

120 IF t=l OR t=3 GOTO 180 

130 IF t=2 THEN SOUND 1 ,40 ,5,7:sc=sc+50 

140 sc=sc+10:IF sc MOD 300=0 THEN y=y- 

i-Cv=5) 

150 LOCATE c f 22:PRINT•^ , 

160 x=x+INTCRND*3)-l+Cx>24)-Cx<3) 

170 GOTO 40 

1 80 CLS : LOCATE 9.10: PR I NT ' CCCCRRRRAAAASS 

SSHHHH ! ! ! ! ■ 

1 9 SOUND 1,1000,200,7 

200 LOCATE 13,12: PR I NT ' Tu pun tuac i on " : sc 

210 IF sc<hi GOTO 230 

220 LOCATE 14, lSzPRINT'PUNTUACION MAS AL 

TA" :hi+sc 

230 LOCATE 13,20: PR I NT " PUNTUAC I ON = ■ ; h i 

240 LOCATE 6 , 25 : PR I NT * Pu 1 sa espac i o para 

juqar nue'-'amerite' 
250 WHILE INKEY*<>" " :WEND 
260 GOTO 20 
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Desplazamiento de bloques 



Esta practica utilidad puede desplazar una porcion de la 
pantalla hacia arriba o abajo. La 'caja' (box) necesita ser 
definida mediante el estamento CALL, asimismo es necesario 
definir el color y la direccion del movimiento; 1 hacia arriba y 
hacia abajo. 

Cuando se ejecuta el comando CALL, la caja se desplazara 
(scroll) una lfnea completa. La rutina ejecuta un desplazamiento 
extremadamente rapido. El formato de CALL es: 

CALL 40000, L, R, T, B, P, D 

L corresponde a la posicion izquierda, R es la derecha, T 
corresponde a la parte superior y B a la inferior de la 'caja'. 
Esta caja o rectangulo es definida de una forma similar a 
cuando se utiliza el comando BASIC WINDOW. P es el color de 
la tinta y D determina la direccion del desplazamiento; para 
abajo y 1 hacia arriba. 




50 



i 


DESPLAZAMIENTO BLOOUES 








10 


SYMBOL AFTER 2 


56: MEMORY :-" 


599' 


■■' : S 


YMBOL 


AFTER 240 










20 


FOR r 


1=40000 TC 


40031 








30 


READ 


a$:POKE n 


A'ALC&'+a* 


! 






40 


NEXT 












50 


DATA 


FE„06,C0. 


DD,46,00,DD 


.7E 


,02 


,DD 


60 


DATA 


5E,04,DD, 


6E,06,DD,56 


,08 


,DD 


, 66 


70 


DATA 


0A,lD,2U f 


15.25.CD.2C 


.BC 


,CD 


,50 


80 


DATA 


BC , C9 











Editor Assembler 

AMMA3 1 . 1 

Cop y r i g h t 1 985 P I CTURESOUE 







0001 


: DESP 


BLOOUES 








0002 


¥ 




9C40 




0010 


ORG 


40000 


BC2C 




0020 


ENCODE DEFL 


0BC2CH 


BC50 




0030 


SWROLL DEFL 


0BC50H 


9C40 


FE06 


0040 


CP 


6 


9C42 


C0 


0050 


RET 


NZ 


9C43 


DD4600 


0060 


LD 


B,< 


IX+0 


) 


9C46 


DD7E02 


0070 


LD 


A.c 


IX+2 


) 


9C49 


DD5E04 


0080 


LD 


E,( 


IX+4 


) 


9C4C 


DD6E06 


0090 


LD 


L,c 


IX+6 


) 


9C4F 


DD5608 


0100 


LD 


D,( 


IX+8 


) 


9C52 


DD660A 


0110 


LD 


H,(IX+10) 


9C55 


ID 


0120 


DEC 


E 


9C56 


2D 


0130 


DEC 


L 


9C57 


15 


0140 


DEC 


D 


9C58 


■ - iC 


0150 


DEC 


H 


9C59 


CD2CBC 


0160 


CALL 


ENCODE 


9C5C 


CD50BC 


0170 


CALL 


SWROLL 


9C5F 


C9 


0180 


RET 








0190 


END 
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Rejilla de disefio 



Si tu realizas dibujos en tu Amstrad, o disenas pantallas de 
texto y graficos para usar en prograrr.as, entonces encontraras 
que una matriz de rectangulos o rejilla, que cubra la pantalla a 
un toque de boton durante el diseno, desapareciendo 
posteriormente a otro toque de boton sin dejar rastro, ni 
danando el dibujo, es algo muy util. 

Bien, esto es exactamente lo que hace la rutina Rejilla Diseno 
mediante el uso de una funcion especial del Codigo Maquina 
llamada OR Exclusiva o de forma abreviada XOR 
(extranamente no forma parte del planeta Zilog). 

La ejecucion de CALL 40000 mostrara instantaneamente una 
matriz de 8 por 8 pixels en la parte superior de la pantalla que 
estas disefiando. Esta rutina trabaja en cualquier modo de 
screen y se ajusta de tal forma que contiene muchas mas lineas 
en Mode 2 y muchas menos en Mode 1. 

Una segunda ejecucion de CALL 40000 eliminara la rejilla de tu 
pantalla, pero dejara 'sin tocar' tu dibujo, esto es debido a la 
caracterlstica XOR del Codigo Maquina. 

La mejor forma de utilizarla es en medio de un programa 
artistico donde esta rutina es llamada apretando un boton 
simplemente. Siguiendo desde este punto, aqui tenemos un corto 
y simple programa artistico en BASIC que te permite realizar 
dibujos mediante el joystick en screen Mode 1. Pulsando el 
boton de disparo una vez aparecera la rejilla, una segunda 
pulsacion la hara desaparecer. Estoy seguro que tu eres capaz 
de escribir un programa de dibujo mucho mas complejo; el 
proposito del mio es simplemente demostrativo. 

La rejilla fue deliberadamente disenada para 8 por 8 pixels, de 
manera que corresponda completamente con un caracter de 
texto. Esta rutina puede ser usada no unicamente para dibujar 
en programas graficos, sino incluso para una detallada 
presentacion en pantalla de texto o semitexto. 
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1 ' 


REJILLA 


DE 


DIS 


:ENO 








10 


SYMBOL f- 


FTER 2 


56 : 


MEMORY 


:-!v 


vvv 


: SYMBOL 


AFTER 240 
















20 


FOR n=40 


000 TC 


4008c 


! 








30 


READ a*: 


POKE r 


, VAL ( * 


&"+a*> 






40 


NEXT 
















50 


DATA 3E, 


1 , CD . 


59 


BC, 


CD . 


11. 


BC . 


3C,0E 


60 


DATA 0A, 


CB.21. 


3D . 


20, 


FB, 


3E, 


01, 


CD , 2C 


70 


DATA BC, 


11,07, 


00 


41. 


C5, 


21, 


00, 


00,01 


80 


DATA C7. 


00,F5, 


D5 


CD . 


62, 


BC . 


Dl, 


Fl,06 


90 


DATA 08. 


13,10, 


FD 


.CI, 


10, 


EA. 


i'~i "~- 


26.00 


100 DATA 2'; 


' . 2V . 2'; 


' , 2B . 4D , 44 


,21 


^00 


.00, IE 


110 DATA IS 


■,F5,D!: 


; . C5 . E5 , 1 1 


,00 


.00 


.CD.5F 


120 DATA BC 


:,E1 .0c 


.,0S 


!'«.&!-" 


1,10 


.FC 


,C1 


.D1,F1 


130 DATA 1C 


i,20,E£ 


s , C' : 


~t 











Editc 


•r Asserr 


b 1 er 








AMMAS 


; 1.1 










Copyr 


•ight IS 


85- PICTURESQUE 








0001 


* 


RE J I 


DISENO 






0002 


* 






9C40 




0010 




npfi 


40000 


BC59 




0020 


XORMOD 


DEFL 


0BC59H 


BCll 




0030 


MODE 


DEFL 


0BC11H 


BC2C 




0040 


INKEIMC 


DEFL 


0BC2CH 


BC5F 




0050 


SCRHOR 


DEFL 


0BC5FH 


BC62 




0060 


SCRVER 


DEFL 


0BC62H 


9C40 


3E01 


0070 




LD 


A,l 


9C42 


CD59BC 


0080 




CALL 


XORMOD 


9f:45 


CD11BC 


0090 




CALL 


MODE 


9C48 


3C 


0100 




INC 


A 


9C49 


0E0A 


0110 




LD 


C , 1 


9C4B 


CB21 


0120 


WIDTH 


SLA 


c 


9C4D 


3D 


0130 




DEC 


A 


9C4E 


20FB 


0140 




JR 


NZ, WIDTH 


9C50 


3E01 


0150 




LD 


A,l 


9C52 


CD2CBC 


0160 




CALL 


INPCENC 


9C55 


11070O 


0170 




LD 


DE,7 


9C58 


41 


0180 




LD 


B,C 


9C59 


C5 


0190 


NXTVER 


PUSH 


BC 
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9C5A 


210000 


0200 


LD 


HL.0 


9C5D 


01C700 


0210 


LD 


BC.199 


9C60 


F5 


0220 


PUSH 


AF 


9C61 


D5 


0230 


PUSH 


DE 


V L- '-■ 2 


CD62BC 


0240 


CALL 


SCRVER 


9C65 


Dl 


0250 


POP 


DE 


9C66 


Fi 


0260 


POP 


AF 


9C67 


0608 


0270 


LD 


B . 8 


9i_:69 


13 


0280 MO VEX 


INC 


DE~ 


9C6A 


10FD 


0290 


DJNZ 


MOVEX 


9C6C 


CI 


3 


POP 


BC 


9C6D 


10hA 


0310 


DJNZ 


NXTVER 


9C6F 


O "■" 


0320 


LD 


L.C 


9C70 


2600 


0330 


LD 


H.0 


9C72 


v Q 


0340 


ADD 


HL.HL 


9C73 


2 V 


0350 


AUD 


HL.HL 


9C74 


29 


0360 


ADD 


HL.HL 


9C75 


2B 


0370 


DEC 


HL 


9C76 


4D 


0380 


LD 


C.L 


9C77 


44 


0390 


LD 


B.H 




2 10000 


0400 


LD 


HL.0 


9C7B 


1E19 


0410 


LD 


E.25 


9C7D 


F5 


0420 NXTHOR 


PUSH 


AF 


9C7E 


D5 


0430 


PUSH 


DE 


9C7F 


C5 


0440 


PUSH 


BC 


9C80 


E5 


0450 


PUSH 


HL 


9C81 


110000 


0460 


LD 


DE,0 


9C84 


CD5FBC 


0470 


CALL 


SCRHOR 


9C87 


El 


0480 


POP 


HL 


9C88 


0608 


0490 


LD 


B . 8 


9C8A 


26 


0500 MOVEY 


INC 


HL 


9C8B 


10FD 


0510 


DJNZ 


MOVEY 


9C8D 


CI 


0520 


POP 


BC 


9C8E 


Dl 


0530 


POP 


DE 


9C8F 


Fl 


0540 


POP 


AF 


9C90 


ID 


0550 


DEC 


E 


9C91 


20EA 


0560 


JR 


NZ . NXTh 


9C93 


C9 


0570 
0580 


RET 
END 





JR 
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Explosion graf ica 



Si alguna vez has escrito juegos de accion, entonces te apuesto 
a que a menudo has deseado tener una buena, rapida y 
espectacular rutina de explosion. Reconozco que anteriormente 
a escribir esta, habfa hecho muchos intentos en BASIC, pero 
todos careclan del suave desplazamiento y calidad del Codigo 
Maquina. 

Esta rutina, como podemos ver abajo, es seguida por una buena 
cantidad de parametros: 

CALL 40000, L, R, T, B, TY, D 

Los cuatro primeros parametros fijan el rectangulo donde debe 
producirse la explosion. Como podras comprobar, para obtener 
un buen efecto de explosion, necesitaras un rectangulo de 
tamaRo razonable, L y R determinan la posicion izquierda y 
derecha del rectangulo en la pantalla, mientras que T y B 
establecen la parte superior e inferior. El rectangulo se define 
de la misma forma que el comando Amstrad WINDOW. 

A traves del comando TY podemos seleccionar dos tipos de 
explosion disponibles. '0' selecciona la explosion que cubre 
completamente el rectangulo. '1' selecciona el otro tipo, con el 
cual unicamente hacemos 'explotar' algunos caracteres dentro 
del rectangulo. Si, por ejemplo, tienes una nave espacial 
realizada con dos caracteres dentro de un rectangulo de 3 por 3, 
entonces con la explosion tipo 1 unicamente explotaran los dos 
caracteres; sin embargo, con la tipo 0, 'explotaran' los 9 
caracteres conteriidos en el rectangulo de 3 por 3. 

El ultimo parametro corresponde al retardo. Las areas mas 
pequenas explotan antes que las mas grandes, luego el retardo 
debe ajustarse de acuerdo con esto. Deberas experimentar con 
la rutina para encontrar el retardo que se ajusta al tamaRo del 
rectangulo y al programa. Cuanto mas alto sea el valor, mayor 
sera el retardo y mas lenta la explosion. 

La rutina no es efectiva cuando se emplea en grandes areas, 
pero puede trabajar en los tres modos de screen. Para realizar 
la explosion utiliza todos los colores disponibles en el modo en 
que se encuentra. 
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i ' 


EXPLOSION 


10 SYMBOL AFTER 256: MEMORY 39999 : SYMBOL 


AFTER 240 


20 FOR n 


=40000 TO 40226 


30 READ 


a*: POKE n , VALC "V+a*) 


40 NEXT 




50 DATA 


r E , 06 , C0 , CD . 06 . B9 , DD . 6E . 06 T DD 


60 DATA / 


z.6 , A , 2D , 25 , DD . 7E . 8 , 94 , 4F , CD 


70 DATA 


1 A , BC , AF . 81 . 1 , FD . 47 . DD . 7E , 04 


80 DATA I 


JD, 4E, 06, 0D, 91, 4F,EB, 21,00,00 


90 DATA 1 


JD . 7E . 02 . B7 . 20 , 45 . C5 . D5 , 3E , 08 


100 DATA 


F5,C5,D5,7E,23,B6,23,CB,74,28 


110 DATA 


03 , 21 , 00 , 00 , 12 , 1C , 20 , 0A , 14 , 7A 


120 DATA 


E6 , 07 , 20 , 04 . 7A , D6 , 08 . 57 . 1 , E5 


130 DATA 


Dl , 7A , C6 , 08 , 57 . CI , Fl , 3D . 20 . D8 


140 DATA 


7A , D6 , 40 , 57 . 7B , C6 , 50 . 5F . 30 , A 


150 DATA 


14 , 7A , E6 , 07 , 20 . 04 , 7A , D6 . 08 , 57 


160 DATA 


0D , 20 , BF , D 1 , C 1 , 3E , 0F , F5 , C5 . D5 


170 DATA 


DD , 7E , , 3C , 76 . 3D , 20 , FC , 3E , 08 


180 DATA 


F5 , C5 , D5 , 7E , 23 , B6 . 23 , CB . 74 , 28 


190 DATA 


03 , 21 , 00 , 00 , EB , A6 . EB . 12 . 1C . 20 


200 DATA 


0A , 14 , 7A , E6 ,07,20. 04 , 7A , D6 , 08 


210 DATA 


57 , 1 , E2 , Dl . 7A . C6 . 08 . 57 . CI . Fl 


220 DATA 


3D , 20 , D5 , 7A , D6 , 40 , 57 . 7B , C6 , 50 


230 DATA 


5F , 30 , A , 1 4 . 7A . E6 .07.20. 04 , 7A 


240 DATA 


D6 ,08,57,00,20, BC . D 1 , C 1 , F 1 , 3D 


250 DATA 


20 , AB , 3E , 00 , DD , 5E . 04 , DD . 6E . 06 


260 DATA 


DD , 56 , 08 , DD , 66 , A . 1 D , 2D . 1 5 . 25 


270 DATA 


CD , 44 , BC , CD , 09 , B9 , C9 



Edit or Assemb 1 er 

AMMAS i . 1 

Copyright 1985 PICTURESQUE 



9C40 
BC1A 
B906 
B909 
BC44 
9C40 FE06 



0001 


u 
V 


EXP 


GRAFICA 


0002 


* 






0010 




ORG 


40000 


0020 


CHRPOS 


DEFL 


0BC1AH 


0030 


ROMENA 


DEFL 


0B906H 


0040 


ROMDIS 


DEFL 


0B909H 


0050 


FILBOX 


DEFL 


0BC44H 


0060 




CP 


6 



56 



9C42 


CO 


0070 




RET 


NZ 


9C43 


CO06B9 


0080 




CALL 


ROHENA 


9C46 


DD6E06 


9 




LD 


L,(IX+6) 


9C49 


DD660A 


0100 




LD 


H, CIX+10) 


9C4C 


2D 


0110 




DEC 


L 


9C4D 




0120 




DEC 


H 


9C4E 


DD7E08 


0130 




LD 


A. ( IX+8) 


9C51 


94 


0140 




SUB 


H 


9C52 


4F 


0150 




LD 


C.A 


9C53 


CD 1 ABC 


0160 




CALL 


CHRPOS 


9C56 


AF 


0i70 




XOR 


A 


9C57 


81 


0180 


BYTES 


ADD 


A,C 


9C58 


10FO 


0190 




DJNZ 


BYTES 


9C5A 


47 


0200 




LD 


B,A 


9C5B 


DD7E04 


0210 




LD 


A, CIX+4) 


9C5E 


DD4E06 


0220 




LD 


c 


, (IX+6) 


9C61 


0D 


0230 




DEC 


c 




9C62 


91 


0240 




SUB 


c 




9C63 


4F 


0250 




LD 


c 


,A 


9C64 


EB 


0260 




EX 


DE f HL 


9C65 


210000 


0270 




LD 


HL,0 


9C68 


DD7E02 


0280 




LD 


A. (IX+2) 


9C6B 


B7 


0290 




OR 


A 


9C6C 


2045 


0300 




JR 


NZ . PART2 


9C6E 


C5 


0310 




PUSH 


BC 


9C6F 


D5 


0320 




PUSH 


DE 


9C70 


3E08 


0330 


NXTROW 


LD 


A. 8 


9C72 


F5 


0340 


NXTLIN 


PUSH 


AF 


9C73 


C5 


0350 




PUSH 


BC 


9C74 


D5 


0360 




PUSH 


DE 


9C75 


7E 


0370 


NXTBYT 


LD 


A.(HL) 


9C76 


il*I» 


0380 




INC 


HL 


9C77 


B6 


0390 




OR 


(HL) 


9C78 


ji!-Z' 


0400 




INC 


HL 


9C79 


CB74 


0410 




BIT 


6.H 


9C7B 


2803 


0420 




JR 


Z. INROM 


9C7D 


210000 


0430 




LD 


HL ? , 


9C80 


12 


0440 


INROM 


LD 


(DE) ,A 


9C81 


1C 


0450 




INC 


E 


9C82 


200A 


0460 




JR 


NZ.GOTBYT 


9C84 


14 


0470 




INC 


D 


9C85 


7A 


0480 




LD 


A,D 


9C86 


E607 


0490 




AND 


—I 
l* 


9C88 


2004 


0500 




JR 


NZ.GOTBYT 


9C8A 


7A 


0510 




LD 


A,D 


9C8B 


D608 


0520 




SUB 


i"i 


9C8D 


57 


0530 




LD 


D 


,A 



57 



9C8E 


10E5 


0540 


GOTBYT 


DJNZ 


NXTBYT 


9C90 


Dl 


0550 




POP 


DE 


9C91 


7A 


0560 




LD 


A.D 


9C92 


C608 


0570 




ADD 


A,8 


9C94 


cr-7 


0580 




LD 


D,A 


9C95 


CI 


0590 




POP 


BC- 


9C96 


Fl 


0600 




POP 


AF 


9C97 


3D 


0610 




DEC 


A 


9C98 


20D8 


0620 




JR 


NZ.NXTLIN 


9C9A 


7A 


0630 




LD 


A,D 


9C9B 


D640 


0640 




SUB 


64 


9C9D 


cr-7 


0650 




LD 


D.A 


9C9E 


7B 


%66-(i 




LD 


A.E 


9C9F 


C650 


0670 




ADD 


A, 80 


9CAi 


5F 


0680 




LD 


E,A 


9CA2 


300 A 


%69% 




JR 


NC . GOTROW 


9CA4 


14 


0700 




INC 


D 


9CA5 


7A 


0710 




LD 


A,D 


9CA6 


E607 


0720 




AND 




9CA8 


2004 


0730 




JR 


NZ , GOTROW 


9CAA 


7A 


0740 




LD 


A.D 


9CAB 


D608 


0750 




SUB 


i~i 


9CAD 


cr— ? 

•_• r 


0760 




LD 


D,A 


9CAE 


0D 


0770 


GOTROW 


DEC 


c 


9CAF 


20BF 


0780 




JR 


NZ . NXTROW 


9CB1 


Dl 


0790 




POP 


DE 


9CB2 


CI 


0800 




POP 


BC 


9CB3 


3E0F 


0810 


PART2 


LD 


A, 15 


9CB5 


F5 


0820 


FADE 


PUSH 


AF 


9CB6 


C5 


0830 




PUSH 


BC 


9CB7 


D5 


0840 




PUSH 


DE 


9CB8 


DD7E00 


0850 




LD 


A, (IX+m) 


9CBB 


3C 


0860 




INC 


A 


9CBC 


76 


0870 


PAUSE 


HALT 




9CBD 


3D 


0880 




DEC 


A 


9CBE 


20FC 


0890 




JR 


NZ , PAUSE 


9CC0 


3E08 


0900 


NEWROW 


LD 


A, 8 


9CC2 


F5 


0910 


NEWLIN 


PUSH 


AF 


9CC3 


C5 


0920 




PUSH 


BC 


9CC4 


D5 


0930 




PUSH 


DE 


9CC5 


7E 


0940 


NEWBYT 


LD 


a, <:hl:> 


9CC6 


23 


0950 




INC 


HL 


9CC7 


B6 


0960 




OR 


CHL) 


9CC8 


jL-O 


0970 




INC 


HL 


9CC9 


CB74 


0980 




BIT 


6,H 


9CCB 


2803 


0990 




•JR 


Z . ROM 


9CCD 


210000 


1000 




LD 


HL,0 
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9CD0 EB 


1010 ROM 


EX 


DE . HL 


9CD1 A6 


1020 


AND 


(HL) 


9CD2 EB 


1030 


EX 


DE , HL 


9CD3 12 


1040 


LD 


(DE) ,A 


9CD4 1C 


1050 


INC 


E 


9CD5 200 A 


1060 


JR 


NZ , FNDBYT 


9CD7 14 


1070 


INC 


D 


9CD8 7A 


1080 


LD 


A,D 


9CD9 E607 


1090 


AND 


f 


9CDB 2004 


1100 


JR 


NZ , FNDBYT 


9CDD 7A 


1110 


LD 


A,D 


9CDE D608 


1120 


SUB 


O 


9CE0 57 


1130 


LD 


D.A 


9CE1 10E2 


1140 FNDBYT 


DJNZ 


NEWBYT 


9CE3 Dl 


1150 


POP 


DE. 


9CE4 7A 


1160 


LD 


A,D 


9CE5 C608 


1170 


ADD 


A. 8 


9CE7 57 


1180 


LD 


D.A 


9CE8 CI 


1190 


POP 


BC 


9CE9 Fl 


1200 


POP 


AF 


9CEA 3D 


1210 


DEC 


A 


9CEB 20D5 


1220 


JR 


NZ.NEWLIN 


9CED 7A 


1230 


LD 


A,D 


9CEE D640 


1240 


SUB 


64 


9CF0 57 


1250 


LD 


D.A 


9CF1 7B 


1260 


LD 


A.E 


9CF2 C650 


1270 


ADD 


A, 80 


9CF4 5F 


1280 


LD 


E, A 


9CF5 300 A 


1290 


JR 


NC . FNDROW 


9CF7 14 


1300 


INC 


D 


9CF8 7A 


1310 


LD 


A.D 


9CF9 E607 


1320 


AND 


f 


9CFB 2004 


1330 


JR 


NZ , FNDROW 


9CFD 7A 


1340 


LD 


A.D 


9CFE D608 


1350 


SUB 


8 


?D00 57 


1360 


LD 


6, A 


?D01 0D 


1370 FNDROW 


DEC 


c 


?D02 20BC 


1380 


JR 


NZ , NEWROW 


?D04 Dl 


1390 


POP 


DE 


9D05 CI 


1400 


POP 


BC 


9D06 Fl 


1410 


POP 


AF 


9D07 3D 


1420 


DEC 


A 


9D08 20AB 


1430 


JR 


NZ.FADE 


?D0A 3E00 


1440 


LD 


A,0 


9D0C DD5E04 


1450 


LD 


E, (IX+4) 


?D0F DD6E06 


1460 


LD 


L, (IX+6) 


?D12 DD5608 


1470 


LD 


D, CIX+8) 
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9D15 


D06c 


8A 


I486 


9 Li i 8 


10 




1490 


90 i 9 


20 




1500 


90 i A 


15 




1510 


90 IB 






1520 


9D1C 


C044BC 


lo30 


90 IF 


CD 09 


•B9 


1540 


9022 


C9 




1550 
1560 



LD 


H, (IX+ 


DEC 


h 


DEC 


L 


DEC 


LI 


LJtC 


H 


C AL- 


L FILBOX 


GAL 


L ROMDIS 


RET 




ENL 
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Analizador de pantalla 



Esta rutina realiza una funcion de las mas utiles; comprueba 
que un caracter esta situado en una determinada posicion de la 
pantalla. Esta funcion es frecuentemente usada en juegos 
graficos con movimiento, y algunos home computers tienen una 
instruccion BASIC -tal como SCRN en el Spectrum- para 
realizar la labor de nuestra rutina. 

La rutina trabaja en los tres modos de screen que tiene el 
Amstrad y debe ser llamada con el formato que se muestra a 
continuacion: 

C% = 0: CALL 40000, A, B, @ C% 

A y B son las coordenadas de la posicion que sera 'chequeada' 
(comparada) en la pantalla, mientras que C% es la variable que 
contiene el codigo ASCII del caracter que reside en la posicion 
especificada. C% debe ser un entero (de aquf el signo '%' 
despues de la variable) y necesita ser def inido antes que CALL, 
de otra forma se generara un error. 




i 




ANALIZAL 


OR 


DE 


PAN 


• ■'"■• ! 


L-f~i 








10 


SyME-i 


HL AFTER 1 


~ / „ 


MEN 


OR Y 


39 


99= 


" : ; 9- '' 


MB 


JL 


AFTER 2- 


10 


















.■■' 


hl!K r! = 4wR«H |l 


40 


019 














30 


READ 


a$:!-'UKL r 


1 1 .-. 

B V r 1 


L ( a 


V. a ' 


af .» 










40 


NEXT 




















50 


DATA 


DD.6E,§2. 


DD . 


(l'C [ a 


04, 


CD . 


:'■ ~! 


,BB. 


ULI 




60 


DATA 


60 , BB.DD, 


6E , 





DD, 


: _- ! _ ! c 


1 


B : ! K 







Editor 
AMMAS 



?mb 1 



jpyright 1935 PICTURE:: 



9C40 
BB75 
BB60 



VI. 

?(. 
?(. 
9C 
9C 
9C 
9l 
9i" 



40 DD6E02 
43 DD6604 
46 CD75BB 
49 CD60BB 
4C DD6E00 
4F DD6601 



■>:-; i: 



001 

2 

010 
2 

030 

040 
050 

060 
070 
080 
9 

100 
110 

120 



ANAL PAN i ALLA 



CURSOR 
RDCHAR 



ORG 

DEFL 

DEFL 

LD 

LD 

CALL 

CALL 

LD 

LD 

LD 

RET 

END 



4 

0BB7 
0BB6 
L. CI 
H. CI 
CURS 
RDCH 
L.. CI 
H. CI 
CHL) 



(? 

5H 
0H 
X+2) 
X+4 ) 
OR 
AR 
y+0 ) 

x+ i ) 

. A 
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Impresion de nueve caracteres 



Una rutina anterior, Impresion de Cuatro Caracteres, ha sido 
redisenada y ampliada para proporcionar un bloque de 3 por 3 
caracteres que puede ser situado en cualquier lugar de la 
pantalla grafica sin la necesidad de tener que usar TAG y 
TAGOFF, o cualquier otro comando complejo. 

El principio para esta rutina es el mismo que para su 
predecesora. CALL *0000, X, Y, C iniciara la impresion del 
bloque en la pantalla grafica, las coordenadas X e Y 
corresponden a la parte superior izquierda del bloque. 

Naturalmente, la diferencia principal es el numero de 
caracteres en pantalla. C sigue siendo el codigo ASCII 
correspondiente al primer caracter pero ahora siguen otros 8 
caracteres mas. Esto unicamente requerira un poco mas de 
esf uerzo en el planteamiento de tu diseno. 

Como en la primera rutina, el principal uso de esta es la de 
poder mover con facilidad un grupo de UDGs (User Definable 
Graphic) alrededor de la pantalla. 



i 




IMPRES 


:I0N 


,- 


CARAC 


TERES 






1 SYMBOL AFTER 2 
AFTER 24@ 


Fii' : . 


: MEMOF 


Y 3' 


'/•->••>' 


■' " -Z* 


VMBOL 






20 


FOK r 


i=40000 TO 


40055 










•~'0 


READ 


a$ : POP 


£ n 


,VALC'&' 


+a$: 








40 


NEXT 


















50 


DATA 


DD . 4E . 


00. 


00 


.6E.02 


.DD 


6>6> 


t 3 


.DD 


60 


DATA 


53 


04. 


DD. 


•J O 


05. 0d 


.03 


05 


,E5 


.C5 


70 


DATA 


CD 


CO. 


BB. 


CI 


.79. 0L 


.C5 


CD 


.FC 


. BB 


80 


DATA 


CI 


"70 


0C, 


C5 


CD . FC 


.BB 


CI 




,.0C 


90 


DATA 


C5 


CO . 


FC, 


BB 


CI. El 


.Dl 


3E 


10 


.2B 


100 DATf 


\ 30.2? 


>,FC 


.It 


i . DA . C 
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Ec 


it. 


:<r As s err 


b 1 er 












AMMA:; 


: ; 1.1 














Copyt 


-ight i'J 


35 PIC n 


Ti|- 


pc 


QUE 








Ci iA L-i j^ 


. 






IMP 


9CARAC 






LA LA ' .■' 


: 










9C40 




LA \ 








ORG 


4. 


BBC6 




020 


A'r 


KC 


UR 


DEFL 


0BBC6H 


BBC0 




r\ 


MC 


VA 


BS 


DEFL 


0BBC0H 


BBFC 




0040 


GF 


a r 


HK 


DEFL 


0BBFCH 


>Z'j f 


4w 


DD4E00 


5 








LD 


C . ( I x+ ) 


O !~ 


43 


DD6E02 


,-•-, 








LD 


L. ( IX+2) 


?c 


46 


DD6603 


"7 








LD 


H. (IX+3) 


>~'\~ 


49 


DD5E04 


;-; 








LD 


E. (IX+4) 


?L 


4C 


DD5605 


Q 








LD 


D, (IX+5) 


i~t i~ 


4F 


6 3 


i 








LD 


B . 3 


Oj" 


51 


05 


1 1 


N> 


TC 


HF: 


PUSH 


DE 


I~t l"~ 




E5 


0120 








PUSH 


HL 


O i~ 


nr-~: 


C5 


Of ^ ;-; Oi 








PUSH 


BC 


9C 


54 


CDC0BB 


0140 








CALL 


MOVABS 


O f 




CI 


0150 








POP 


BC 


O l~ 




i "• 


0160 








LD 


A.C 


Qf 




0U 


0170 








INC 


c 


9C 


jA 


C5 


0130 








PUSH 


BC 


Qj~ 


5B 


CDFCBB 


2 O 








CALL 


GRACHR 


C»j™ 


5E 


CI 


2 








POP 


BC 


t~i i*" 


5F 


l "'* 


0210 








LD 


A.C 


o i~ 


60 


0C 


0220 








INC 


C 


9 1 


61 


C5 


0230 








PUSH 


BC 


O |~ 


/"i .■• 


CDFCBB 


0240 








CALL 


GRACHR 


'-'l~ 




CI 


0250 








POP 


BC 


Oi — 


66 




0260 








LD 


A , C 


O *'" 


O i' 


0C 


0270 








INC 


c 


l~tl~ 


68 


C5 


0280 








PUSH 


BC 


9C 


69 


CDFCBB 


0290 








CALL 


GRACHR 


"■ •_ 


6C 


CI 


3 








POP 


BC 


or 


6D 


Ei 


0310 








POP 


HL 


'-•' f~ 


6E 


Dl 


0320 








POP 


DE 


Qf 


6F 


3E10 


0330 








LD 


A. 16 


Q i~ 


7i 


2B 


0340 


NEWF 


OW 


DEC 


HL 


9C 


r" .^ 


3D 


0350 








DEC 


A 


Qf 


r' o 


20FC 


0360 








JR 


NZ . NEWROW 


9l~ 


i" ■_' 


10DA 


0370 








DJNZ 


NXTCHR 


Vl_ 


1 \ 


C9 


0380 
0390 








RET 
END 
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■SB 

■as 



Este pequefio programa de demostracion hace rebotar una 
pelota alrededor de la pantalla, mostrandonos la velocidad de la 
rutina Impresion de Nueve Caracteres. Recuerda, cuando 
observes la pelota moviendose por la pantalla, que lo hace a 
traves de los graficos, no del texto. 



10 

20 

30 

4-0 

50 

,60 

60 

70 

80 

9 b 

100 
110 

120 

130 

140 

0,5, 

150 

0,5, 

160 



SYMBOL 240.0,0.0,0 
YMBOL 241 
lYMBOL 242 
YMBOL 243 
YMBOL 244 



0.tf.#.0,0.0.0 



Qt m i"i u a iA n $ $ 



t-.Oi 1 V, 



x=320 : v =: 200 
CALL 40000, 
x=x+a : y=v+b 
IF x<10 OR 



iCTET 



i . 1 26 



YMBOL 245 ,0,0,0,0,0,0,0,0 
YMBOL 246 ,0,0,0,0,0,0,0,0 
YMBOL 247,0,0,0,0,0,0,0,0 
YMBOL 248.0.0.0.0.0.0.0.0 
BORDER 2:CLS 

a=16:b=16 

.y.240 



IF. 



50 OR 



£.00 THEN a=-3. 
390 THEN b=-b 



BOUND 1,4 
SOUND 1.5 



GOTO 120 
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Italicas 



Mediante el comando SYMBOL, es posible crear un conjunto 
completo de nuevos caracteres. Considera, sin embargo, la 
cantidad de trabajo que conllevarfa el realizar todas las letras 
mayusculas, minusculas, numeros y sfmbolos, poniendo cada uno 
de ellos dentro de una matriz de 8 por 8; estoy seguro de que 
estaras de acuerdo conmigo en que este programa es mucho mas 
facil y rapido de usar. 

El formato es: 

CALL 40000, R 

R corresponde a la linea que deseas cambiar a caracteres 
italicos. Originalmente hicimos que la rutina cambiara toda la 
pantalla, pero vimos que esto reducfa su uso y flexibilidad. 
Pensamos tambien en la posibilidad de especificar la lfnea y la 
columna, de manera que se pudiese 'italizar' un caracter, pero 
este sistema serfa muy lento en el caso de una frase, 
necesitando gran cantidad de accesos a la rutina. El parametro 
resultante -el que especifica la lfnea- es lo que consideramos 
como mejor compromiso, este es el tipo de situaciones con las 
que te puedes encontrar cuando escribas tus propias rutinas en 
Codigo Maquina. 

A diferencia de la mayorla de nuestras rutinas, esta unicamente 
trabaja en screen Mode 1 . Esto es debido a que la rutina accede 
a la pantalla directamente. Los caracteres estan inclinados 
hacia la derecha, como en el caso de los caracteres italicos, 
haciendo de esta manera que una pequefia porcion del caracter 
n? 40 se deslice fuera de la pantalla. 
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i • 




ITALU 


I: AS 










10 


SYMBOL P 


tFTER 256; MEMORY 


3' : 


MJIJI 


'■• : SYMBOL 


AFTEK 240 














20 


FOR n=4? 


aftw jn 


4007 


1 








30 


READ at: 


POKE n 


. VAL ( 


"&" + 


b.$: 






40 


NEXT 














50 


DATA B7, 


OS , DD , . 


:.E,00 


. 2D . 


^O „ 


ji i'" 


. CD , 1 A 


60 


DAI A BC, 


23.0E.07.C5 


.'is,' 


OB ■ 


3E 


06.4F 


70 


DATA 50, 


54, 7D,; 


2D , B7 


,20, 


0A. 


70 


, 25 . E6 


X0 


DATA 07, 


Z% . 04. 70. 06 


. 8 . 


/- ~? 


1A 


OB , 3E 


90 


DATA 38, 


04, OB,' 


■>F.18 


02. 


OB ! 


DF 


OB . 5E 


10C 


1 DATA 2£ 


«v rp, 


.FF,1 


2,10 


.DE 


..CB.9E.E1 


110 DATA 0L 


,20,D0 


. 70 , 


••-, s Oi ;-; 


.67.01.00.20 


12f 


1 DATA C7 


,09 













Ed 


itc 


:>r AsseiTib 


1 er- 








AMMAS 


5 1.1 










Cup y'! - 


-ight 198b PICT 


URESQUE 








0001 


; 




ITALICA 






0002 


\ 






?c 


40 




i 




ORO 


4000 


BC 


1A 




0020 


CHRPOS 


DEFL 


0BC1AH 


9C 


40 


B7 


0030 




OR 


A 


9C 


41 


C8 


0040 




RET 


T 


9C 


42 


DD6E00 


0050 




LD 


L. ( IX+0 


9C 


45 


2D 


6 




DEC 


L 


9C 


46 


*L 'Z 1 JL. r" 


0070 




LD 


H . 39 


9C 


48 


CD 1 ABC 


8 




CALL 


CHRPOS 


9C 


4B 


!ii!c' 


0090 




INC 


HL 


9 1 


40 


0E07 


0100 




LD 


0.7 


9C 


4E 


C5 


0110 


NXTROW 


PUSH 


BC 


9C 


4F 


E5 


0120 


SCROLL 


PUSH 


HL 


9C 


50 


CB3E 


0130 




SRL 


(HL) 
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~ y L 


CT--I 


064F 


0140 




LD 


B,79 


~/i~ 


54 


5D 


0150 


NXTBYT 


LD 


t.L 


~>c 


crcr 


54 


0160 




LD 


D,H 


~. } C 




7D 


0170 




LD 


A ? L 


~I !*" 


nr — ? 
-J i 


2D 


1 3 




DEC 




?c 


tr.j 


B7 


i-i 1 '-' i-i 




OR 


M 


**.'(" 


■J "■' 


200 A 


2 




JR 


NZ , HLOK 


"ll — 


5B 


7C 


0210 




LD 


A.H 


~M~ 


5C 




0220 




DEC 


H 


~.'i~ 


5D 


E607 


0230 




AND 


l 


".' i"~ 


5F 


2 4 


0240 




JR 


NZ.HLOK 


"ll~ 


61 


7C 


02^0 




LD 


A,H 


7(~ 


o ol! 


C608 


0260 




ADD 


A, 8 


?L 


64 


O i 


0270 




LD 


U A 

! t a H 


"ji~ 


.■■ cr 


1A 


0280 


HLOK 


LD 


A. (DE) 


_ ( _. 


6 6 


CB3E 


0290 




SRL 


CHL) 


*'• i~ 


68 


3804 


3 




JR 


C, SETBIT 


r. 1 1~" 


6 A 


CB9F 


3 1 




RES 


O u fl 


"jf* 


6C 


1802 


0320 




JR 


TSTBIT 


_. _ 


6E 


CBDF 


0330 


SETBIT 


SET 


3 . A 


"ii~ 


70 


CB5E 


0340 


TSTBIT 


BIT 


3.CHL) 


r* i~ 


■"?■" 


2802 


0350 




■JR 


Z, BITOK 


~'C 


74 


CBFF 


0360 




SET 


f' » A 


"ii~ 


76 


12 


0370 


BITOK 


LD 


(DE) .A 


•ff 


r i - ' 


10DB 


0380 




DJNZ 


NXTBYT 


~ f L 




CB9E 


0390 




RES 


3.CHL) 


if 




El 


0400 




FOP 


HL 


*>c 


7C 


0D 


0410 




DEC 


i_: 


~j\~ 


7D 


20D0 


0420 




JR 


NZ . SCROLL 


~it~ 


7F 


7C 


0430 




LD 


A,H 


">!" 


80 


C608 


0440 




ADLJ 


A . o 


")f 


OiL. 


c> i' 


0450 




LD 


H.A 


~m" 


83 


CI 


0460 




POP 


BC 


~'C 


84 


0D 


0470 




DEC 


c 


")i" 


85 


20C7 


0480 




JR 


NZ , NXTROW 


7f 


87 


C? 


0490 

0500 




RET 
END 
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Letras lnclinadas 



Esta rutina tiene mucho en comun con la anterior, Italicas. Ella 
produce la inclinacion hacia atras de todos los^ caracteres 
contenidos en una lfnea determinada. La instruccion CALL es 
exactamente la misma que para la rutina Italicas: 

CALL 40000, R 

La unica diferencia es que ahora es la 1§ columna en lugar de la 
40§ la que pierde parcialmente su caracter. 



1 ' LETRAS INCLINADAS 

10 SYMBOL AFTER 256: MEMORY 3 

AFTER 240 

20 FOR n=40000 TO 40068 

30 READ a*; POKE n.'VAL< '&'+a* 

40 NEXT 

50 DATA B7.C8.DD,6E,00,2U 



60 DATA BC.0E, 07,05, Ed, CB 
70 DATA 54.2C,20,0A,24, ,-'C 
80 DATA 70, 06,08,67,1 A, CB 
9 DATA A7 , 1 8 , 2 , CB , b.7 , CB 
100 DATA C7.12,10,DD,CB,A6,E 
110 DATA 7C.C6,03,67,C1,0D,2 



!i!6 . 
26,06 
E6,07 



SYMBOL 



1. 

0. 



CD 
6,4F 
7.20 
8,04 
8 . 2 
00,2 
C9 . C 



.1A 
.50 
.04 
. CB 
, CB 
. D2 
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0001 


¥ 


LETR 


INCLINADAS 








0002 


J 






9C40 






0010 




ORG 


40000 


BCIA 






0020 


CHRPOS 


DEFL 


0BC1AH 


9C40 


B7 




0030 




OP. 


A 


9C41 


C8 




0040 




RET 


L 


9C42 


DD' 


:.E00 


0050 




LD 


L. (IX+0) 


9C45 


2D 




0060 




DEC 


L 


9C46 


26 < 


30 


0070 




LD 


H,0 



69 



9C4S 


CD i ABC 


l"i C) ;-; i-i 




CALL 


CHRPOS 


9C4B 


@ E 7 


iA i-i '-.' 




LD 


C,7 


9C4D 


C5 


0100 


NXTROW 


PUSH 


BC 


9C4L 


E5 


0110 


SCROLL 


PUSH 


HL 


9C4F 


CB26 


0120 




SLA 


(HL) 


9C51 


064F 


0130 




LD 


B.79 


9C53 


5D 


0140 


NXTBYT 


LD 


E.L 


9C54 


54 


01^0 




LD 


D,H 


9C55 


V j"' 


0160 




INC 


L 


9C56 


200A 


0170 




JK 


NZ . HLOK 


9C5S 


24 


180 




INC 


H 


9C59 


7C 


0190 




LU 


A ? H 


9C5A 


E607 


2 




AND 


f 


9C5C 


2 w 4 


0210 




JR 


NZJHLOK 


9C5E 


7C 


0220 




LD 


A.H 


9C5F 


D608 


0230 




SUB 


g 


9C6 i 


O i'' 


0240 




LD 


H,A' 


9C62 


1A 


0250 


HLOK 


LD 


A. (DE) 


9C63 


CB26 


0260 




oLA 


(HL) 


9C65 


3804 


0270 




JR 


C. SETBIT 


9C67 


CBA7 


Ci v H 




RES 


4. A 


9C69 


i802 


0290 




JR 


TSTBIT 


9C6B 


CBE7 


Ci '~\ Ci Ci 


SETBIT 


SET 


4 i n 


9C6D 


CB66 


0310 


TSTBIT 


BIT 


4. (HL) 


9C6F 


288 2 


0320 




JR 


Z, BITOK 


9C71 


CBC7 


~! .-! Of 




SET 


0,A 


9C73 


12 


0340 


BITOK 


LD 


(DE) .A 


9C74 


10DD 


0350 




DJNZ 


NXTBYT 




CBA6 


0360 




RES 


4, (HL) 


9C78 


El 


0370 




POP 


HL 


9C79 


0U 


0380 




DEC 





9C7A 


20D2 


0390 




JR 


NZ . SCROLl 


9C7C 


7C 


0400 




LD 


A,H 


9C7D 


C608 


0410 




ADD 


A, 8 


9C7F 


67 


0420 




LD 


H . M 


9CS0 


Ci 


0430 




POP 


BC 


?csi 


0D 


0440 




DEC 


C 


?C82 


20C9 


0450 




JR 


NZ , NXTROl 


?C84 


C9 


0460 
0470 




RET 
END 
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vior-Ra I 


NORMAL 


TIWZTcS 


ite//es 


~\\+i<5i-. r A*.vX 


^£3:, ^J£X\ 


JTJ&ZJcS 


/faJ/cs 


V*5>t_ oV*7cX 


^M^, r 3vi&KV 
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Copiador inteligente 



jNo, esta rutina no tiene ningun tftulo ni nivel academico, pero 
sin embargo, es mucho mas inteligente que esas simples rutinas 
para copiar que andan por ahf! Con esta rutina podremos copiar 
un area de la memoria en otra. El formato es el siguiente: 

CALL 40000, Al, A2, L 

Al corresponde a la direccion inicial del bloque que va a ser 
movido, mientras que L representa su longitud. A2 es la 
direccion inicial donde va a ser copiado. La longitud viene 
expresada en bytes y, por ejemplo, un area de memoria desde 
40000 hasta 40240 tiene una longitud de 241 bytes. 

'Inteligente*, tal y como es usado en el tftulo, no es nuestro 
adjetivo preferido, sino mas bien un termino que describe cierta 
rutina. Una copia simple es aquella que se limita a transferir un 
area de memoria a otra sin hacer ningun tipo de 
comprobaciones; una copia inteligente permite que el area de 
destino 'solape' la de procedencia. 

Por ejemplo, supongamos que deseas mover el area de memoria 
comprendida entre las direcciones 30000 y 30010, y quieres que 
la nueva direccion inicial este en 30005, es decir, solapada. En 
esta situacion, un copiador simple realizaria la copia 
directamente, perdiendo el contenido de la mitad del area de 
memoria, mientras que un copiador inteligente, comprobara la 
coincidencia de las dos areas, copiando el nuevo material dentro 
de la nueva area, sin sobreescribir ninguna parte del mismo. 
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<• 


COh'IADOR INTEL I G 


ENTE 






10 


SYHB0L AFTER 256:MEM0R 


T -Z' 


'tCiCl 


5 : :-;' 


/MBOL 


AFTER 240 














20 


FOR n=40000 Tf 


J 4003' 


I) 










30 


READ 


a*: POKE n.VALC 


• ¥, ■ 


+•**" 


1 






40 


NEXT 






* 










50 


DATA 


FE,03,C0 


DD . 4E 


. 00 


. DD . 


46 


.01 


.DD 


60 


DATA 


5E,02.DD. 


56.03 


.DD 


.6E. 


04 


,nn 




70 


DATA 


05,B7.E5. 


ED, 52 


.El 


* •— "— ' a 


03 


.ED 


B0 


80 


data 


C9.09.EB. 


09. EB 


.2B 


,1B, 


ED 


.B8. 


C9 
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DUE 






0001 : 


COP I 


INTEL I G 




C) \A Q\ ~ ! » 






9C40 


0010 


ORG 


4 


9C40 FE03 


2 


CP 


3 


9C42 C@ 


3 


RET 


NZ 


9C43 DD4E00 


0040 


LD 


C. (IX+0) 


9C46 DD4601 


0050 


LD 


B,(IX+1) 


9C49 DD5E02 


0\ ,-■-, 0\ 


Lli 


E . (I X + 2 •• 


9C4C DD5603 


0070 


LD 


D, (IX+3) 


9C4F DD6E04 


8 


LD 


L. (IX+4) 


9C52 DD/-.(-.^< 


0090 


LD 


H,(IX+5) 


9C55 B7 


0100 


OR 


A' 


9C56 E5 


0110 


PUSH 


HL 


9C57 ED52 


0120 


SBC 


HL , DE 


9C59 El 


1 3 


POP 


HL 


9C5A 3803 


0140 


JR 


C , LDDEC 


9C5C EDB0 


0150 


LDIR 




9C5E C9 


0160 


RET 




;'C5F 09 


0170 LDDEC 


: ADD 


HL . BC 


9C60 EB 


0180 


EX 


DE.HL 


?C6l 09 


0190 


ADD 


HL . BC 


9C62 EB 


0200 


EX 


DE . HL 


9C63 2B 


0210 


DEC 


HL 


9C64 IB 


0220 


DEC 


DE 


9C65 EDB8 


0230 


LDDR 




9C6i-' C9 


0240 


RET 






0250 


END 





73 



Memorizador/recuperador 
de pantallas 



Esta rutina toma una pantalla (sobre 16K en terminos de 
memoria) y la almacena en un lugar de la memoria. 
Posteriormente puede ser llamada para mostrarla de nuevo en 
la pantalla. 

Permftenos explicarte como funciona. Para salvar la pantalla y 
transferirla a otra area de la memoria (comenzando, en efecto, 
en la direccion 27392) debemos escribir CALL 43800. Para 
recuperar la pantalla escribe CALL 43812 -todo lo que hubiera 
en la pantalla sera borrado y reemplazado por la nueva que 
estaba en la memoria. 

La rutina ofrece una caracterfstica adicional. Si utilizas CALL 
4382*, la pantalla almacenada aparecera sobre la pantalla 
actual sin borrarla. Obviamente, puede generarse cierta 
confusion allf donde coincidan dos caracteres distintos 
pertenecientes a las dos pantallas. Sin embargo, las areas libres 
de una pantalla pueden ser utilizadas por la otra de una forma 
efectiva en distintos tipos de programas, aventuras, juegos, 
negocios, etc. 

Examinando la lista del BASIC, puedes comprobar que en lugar 
de nuestro habitual comando MEMORY 39999 (reservando unos 
cuantos millares de bytes para nuestras rutinas en Codigo 
Maquina, que comienzan en 40000) esta rutina reserva memoria 
a partir de 27390 en adelante. Esto es, como es natural, para 
permitir que todo el contenido de pantalla sea memorizado y si 
usas esta rutina en alguno de tus programas, deberas incluir en 
el mismo el comando MEMORY 27390. 

Todavia hay otro punto que debes tener en cuenta al utilizar 
este programa. Antes de llamar a la rutina con CALL, deberas 
usar el comando MODE debido a que, si la pantalla ha sido 
desplazada (scroll) o alterada particularmente, podemos 
encontrarnos con que la nueva pantalla puede comenzar en un 
lugar erroneo. Obviamente, el mode en que estes actualmente 
determinara exactamente el comando que debes ejecutar. Una 
rutina que este trabajando en mode 2 debe tener un comando 
MODE 2 anterior a CALL. 
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PANTA 
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FOR 
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334: 
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READ 


a* 


POKE r 


, VAL ( 
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40 


NEXT 
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DATA 


01 


00,40, 


11 


,00 


, 6B 


,21, 


00 


.00 


.ED 


60 


UATA 


B0 


09 , 1 . 


00 


,40 


11 


.00. 


C0 


,21 





70 


DATA 


6B 


ED,B0, 


C9 


,01 


00 


.40. 


11 


,00 


.00 


80 


DATA 


21. 


00.6B. 


Ia 


,AE. 


12 
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DATA 


Bl. 


20, F6, 


C9 















Editor Asserr 


ib 1 er 






AMMAS 1.1 










Copyright 


1? 


'85 PICTURES 


HUE 








0001 ; 


MEM 


PANTALLAS 






0002 ; 






AB18 




0010 


ORG 


43800 


AB18 010040 


0020 


LD 


BC.4000H 


AB1B 1100c 


>B 


0030 


LD 


DE,6B00H 


ABIE 2100L 


:0 


0040 


LD 


HL.0C000H 


AB21 EDB0 




0050 


LDIR 




AB23 09 




0060 


RET 




AB24 010040 


0070 


LD 


BC4000H 


AB27 1100C 


:0 


0080 


LD 


DE.0C000H 


AB2A 2100c 


■B 


0090 


LD 


HL,6B00H 


AB2D EDB0 




0100 


LDIR 




AB2F 09 




0110 


RET 




AB30 010040 


0120 


LD 


BC4000H 


AB33 1100C 


:0 


0130 


LD 


DE.0C000H 


AB36 21 006 


■B 


0140 


LD 


HL,6B00H 


AB39 IA 




0150 LOOP 


LD 


A,(DE) 


AB3A AE 




0160 


XOR 


(HL) 


AB3B 12 




0170 


LD 


(DE),A 


AB3C 13 




0180 


INC 


DE 


AB3D 23 




0190 


INC 


HL 


AB3E 0B 




0200 


DEC 


BC 


AB3F 73 




0210 


LD 


A,B 


AB40 Bl 




0220 


OR 


c 


AB41 20F6 




0230 


JR 


NZ , LOOP 


AB43 09 




0240 
0250 


RET 
END 
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Utilidades graficas 



Este conjunto de utilidades ha sido creado re-escribiendo un 
numero de rutinas de las contenidas en este libro, de tal manera 
que se puedan utilizar como una rutina mas larga. Con esta 
nueva posibilidad grafica. 

Esta rutina, una vez cargada en la memoria, permitira al 
programador utilizar los nuevos comandos en los programas de 
BASIC que el mismo realice. 

Teclear RUN, una vez metida la rutina en memoria, nos 
proporcionara los siguientes comandos: 

INVERT Inversion de caracter 

EXPLODE Explosion grafica 

WRAPLEFT Scroll a la izquierda 

WRAPRIGHT Scroll a la derecha 

PRINTFOUR Print de cuatro caracteres 

Estos nuevos comandos BASIC toman el lugar de los CALL 
40000, pero como es logico, deben ser seguidos de varios 
parametros. Para comprobar este punto y tener una mejor idea 
de como trabaja individualmente cada comando, revisar la 
explicacion dada en el libro sobre la rutina en cuestion. 

Este conjunto de utilidades puede ser utilizado para mejorar la 
presentacion de un programa, sea este un juego, educacional o 
incluso (quizas con la excepcion de ! EXPLODE) un programa 
comercial. 



1 •- UTILIDADES GRAFICAS 




10 SYMBOL Al-TLR 256: MEMORY 399??: 


SYMBOL 


AFTER 240 




20 DIM x(6) 




30 FOR c=0 TO 6: READ a*:x(c)=VAL< 


"&"+a*) 


: NEXT 




40 c=0:5um=0 




50 FOR n=40000 TO 4060? 




60 READ aS^yALC&'+a*) 
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80 I 
90 I 
A*' j 

100* 
1 

110 

120 

TA*" 

130 

140 

150 

160 

45D 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 
390 

400 

410 
420 
430 
440 
450 
460 
470 
430 
490 



u m = s u m + m : P U K E n , ',•' 

F ('n + 1-40000') MOD 100O0 GOTO 110 

F sumOx(c) THEN PRINT'*ERROR IN DAT 

CHRf- (7) : PRINT ' Comprobar 1 i nee.5 " : 200 + 

c : "a" :290+100*c :END 

surri=0 :c=c + l 

NEXT 

IF sumOx(c) THEN PRINT"*ERROR IN DA 

: CHRf ( 7 > : PR I NT a Comprob ar lines. 800" 

CHECKSUMS 

DATA 2BCA , 2EC6 , 283 1 , 2803 , 2C6B f 3029 , 



MACHINE CODE 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



4A 
VC 
C3 
49 
4F 
D4 



01 

5F 
?U 

00 

4C 
46 
D4 

00 

7E 
DD 
CD 
D5 

06 
20 
C9 
DD 
CD 
04 

00 

08 

7A 
E5 
D8 
0A 

•_i r 

D5 
08, FS 
28,0:E 



•'C 

, C3 

- 12 

4E 

44 



■JW 


•Ji. . 


FE 


3 . 


B7 


C8 . 


6'6> 


04. 


AE 


. 9C . 



CD 

,10 

, 08 
,F3 
.FE 

!lA 
DD 
,DD 
,F5 
,03 
,E6 
,D1 
, 7A 
,14 
,0D 
.DD 



,A5 
FD 
IF 
CD 
06 
0A 

,BC 

,4E, 

.7E. 

,C5, 

.21 

,07 

,7A 

, D6 

.7A 

,20 

.7E 

,C5 

,21 



9E 



■JaL 

49 

C0 

47 
13 
BB 
F5 
CB 
09 
C0 
2D 
AF 

06 
02 
D5 

00 

20 
C6 
40 
E6 
BF 

00 

D5 

00 



. 5B . 


9C 


CD . 


, 9C . 


C3 


D7, 


. C3 , 


71 


. 9h . 


.45. 


^j'xi 


D4. 


cr— ? 

. •_• r 


CT--I 


.41. 


.41. 


50 


52, 


.4E 


54 


. 46 . 


. DD . 


6E,00, 


.5E 


i!o 


.56, 



Dl.BC 

, 
50. 4C 



, C5 , E5 
.El. !^5 
.EB.CD 
.CD, 06 
.16.10 
,B9,F1 
.CD. 06 
. 25 . DD 
,81,10 
,0D,91 
.B7.20 
,7E 

,00 

,04 
.08_ 

? B 
.07.20 
,D1,C1 
.3C.76 
,7E,23 
,00, EB 



12 
7A 



. CD , 

.CI. 

,AE 

,B9 

.FB 

. CD 

,B9 

.7E 

,FD 

,4F 

45 
.B6 

1C 

D6 

CI 



49 
4F 
DD 
DD 
75 

10 



47 



6E 
BB 
Fl 
BB,06 
0E.08 
13, 2B 
5A . BB 
DD . 6E 
08.94 
47, DD 

EB.21 

C5.D5 
CB 
0A 



■j t 
3D 
5F 



2» 
08 
Fl 
C6,50 
04.7A,D6 
,3E.0F.F5 
.3D.20.FC 
. B6 . 23 , CB 
.A6,EB.12 



,BA 

. 

50 

45 

.48 

D2 

,01 
02 
1A 
C9 
07 
1A 
0D 

,D1 
06 

.4F 

,7E 

.00 

3E 

74 

14 

10 

.20 

,30 

.08 

,C5 

,3E 

,74 

.1C 
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cr 



:<%% DATA 20,0A,14,7A,E6,07.20.04.7A,O6 
"10 DATA 08,57, 10. L2.D1.7A.C6. 08.57. HI 
520 DATA Fi,3D,20,D5,7A,D6,40,57.7B.C6 
530 DATA ^0,5h ,30,0A. 14.7A.E6.07.20^04 
540 DATA 7A,D6, 08,57, 0D. 20. BC.Di .C1.F1 
550 DATA 3D,20,AB,3E,00.DD.5E.04.DD.6E 
560 DATA 06, DD, 56. 08. DD. 66. 0A.lD f 2D.i c i 
5,-'0 DATA 25,CD.44.BC.CD.09.B9.C9.FE.0:-: 
580 DA I A C0, DD,6E, 02. 2D. DD, 66, 04. 25. CD 
590 DATA lA.BC,DD.46.00.CB.20.0 £:: i.0E.0: :: : 
600 DATA E5,C5,CB,26.7E.F5,5D.54.2C20 
610 DATA 0A,24,7C.E6.07.20.04.7C.DA.0ft 
620 DATA 67, 1A,CB, 26, 38,04. CB,A7. 13,02 
630 DATA CB, E7, CB. 66. 28, 02. CB.C7. 12. 10 
640 DATA DD f Fl,38,04,CB.A6.18,02.CB.E6 
650 DATA CB,67,28,02j::B,C6,l:1.E1.7C.C6 
66v> DATA 08,67,0D,20.BF.C9,FE,03,C0,DD 
67 DATA 6L , 2 , 2D , DD , 4E , . DD . 7E . 4 . 8 1 
680 DATA D6 , 02 , 67 . CD , 1 A , BC , 23 .41. CB . 2 
690 DATA 05,0E,08.E5.C5.CB.3E.7E.F c ;.. i::: iD 
7 DATA 54 , 7D , 2D , B7 . 2 . A , 7C . 25 . E6 . 7 
710 DATA 20,04,7C,C6.08.67.1A.CB.3E.h: :: : 
720 DATA 04,CB,9F,18,02,CB,DF,CB,5E,28 

730 DATA 02,CB,FF,12.10.DB.F1.38.04.CB 
74 DATA 9E ,18,02, CB , DE . CB , 5F , 28 .02. CB 
750 DATA FE , C 1 . E 1 , 7C . C6 , 08 . 67 . 0D . 20 . BD 
760 DATA C9,OO,4E.00,DD,6E,02,DD.66.0>: 
770 DATA DD , 5E . 4 , DD . 56 .05,06.02. D5 . E5 
78 DATA C5 , CD . C , BB .CI. 79 . C , C5 . CD . Ff: 
79 DATA BB , C 1 , 79 , C , C5 . CD . FC . BB . C 1 . E 1 
800 DATA D 1 , 3E , 1 . 2B , 3D . 20 , FC . 1 . E 1 . r.9 



78 



Edit. 


jt~- Assemb 


ler 








AMMA: 


5 i.l 










Copyf 


-ight 198 


5 PICTURESQUE 








0001 


: 


UTIL 


GRAF I CAS 






00 2 


u 






9C40 




0010 




ORG 


40000 


BCD! 




(h (A ' .•' Of 


LOGEXT 


DEFL 


0BCD1H 


BB75 




0:-;0 


f:l ipsfip. 


DEFL 


0BB75H 


BBA5 




0040 


MATRIX 


DEFL 


0BBA5H 


BBAE 




5 


MTABLE 


DEFL 


0BBAEH 


B906 




6 


ROMENA 


DEFL 


0B906H 


B909 




0070 


ROMDIS 


DEFL 


0B909H 


BB5A 




8 


! XTOUT 


DEFL 


0BB5AH 


BClA 




0090 


CHRPOS 


DEFL 


0BC1AH 


BC44 




1 


FILBOX 


DEFL 


0BC44H 


BBC@ 




0110 


MOVABS 


DEFL 


0BBC0H 


BBFC 




0120 


GRACHR 


DEFL 


0BBFCH 


9C40 


014A9C 


0i30 




LD 


BC . TABLE 


9C43 


215B9C 


0140 




LD 


HL . SPACE 


9C46 


CDD1BC 


0150 




CALL 


LOGEXT 


9C49 


U9 


0160 




RET 




9C4A 


5F9C 


0170 


TABLE 


DEFW 


NAMETB 


vl:4u 


038791: 


0180 




JP 


INVERT 


9C4F 


C3D79C 


0190 




JP 


EXPLOD 


9C52 


C3BA9D 


0200 




JP 


LWRAP 


•-■T.^F, 


r:S129E 


0210 




JP 


RWRAP 


9C58 


U371VE 


0220 




JP 


GRPNT4 


9C5B 


00 

00 00 00 


0230 


SPACE 


DEFB 


0.0,0,0 


9C5F 






NAMETB 


DEFM 


■INVER' 


9C64 


D4 


0250 




DEFB 


"T"+80H 


9C65 




0260 




DEFM 


' EXPLOD " 


9C6B 


C5 


0270 




DEFB 


'E"+30H 


9C6C 




0280 




DEFM 


' WRAPLEF ' 


9C73 


D4 


0290 




DEFB 


"T'+80H 


9C74 




0300 




DEFM 


•URAPRIGH' 


9C7C 


D4 


0310 




DEFB 


'T'+80H 


9C7D 




0320 




DEFM 


•PRINTFOU" 


9C85 


D2 


0330 




DEFB 


"R'+80H 


9C86 


00 


0340 




DEFB 





9C87 


FE03 


0350 


INVERT 


CP 


3 


9C89 


C0 - 


0360 




RET 


NZ 


9C8A 


DD6E00 


0370 




LD 


L . ( IX+0) 


9C8D 


DD6601 


0380 




LD 


H.(IX+i) 


9C90 


7E 


0390 




LLi 


A, (HL) 


9C91 


B7 


0400 




OR 


A 


V L- '~* xL 


ijy 


0410 




RET 


~7 



79 



9Cvh 23 


420 




INC 


HL 


9C94 5E 


0430 




LD 


E. (HL) 


9L-95 23 


0440 




INC 


HL 


9C96 56 


0450 




LD 


D, (HL) 


9C97 DD6E02 


0460 




LD 


L. (IX+2) 


9C9A DD6604 


0470 




LD 


H. (IX+4) 


9C9D 47 


0480 




LD 


B,A 


9C9E C5 


4 9 


NX ! CHR 


PUSH 


(-',!"; 


9C9F E5 


5 




PUSH 


HL 


9CA0 CD75BB 


0510 




CALL 


CURSOR 


VL-Ao lA 


0520 




LD 


A, (DE) 


9CA4 CDAE9C 


0530 




CALL 


INVCHR 


9CA7 13 


0540 




INC 


DE 


9CA3 El 


0550 




POP 


HL 


9CA9 25 


0560 




DEC 


H 


9UAA CI 


0570 




POP 


BC 


9CAB 10F1 


0580 




DJNZ 


NXTCHR 


9 CAD C9 


0590 




RET 




9CAE D5 


/-• ft 


INVCHR 


PUSH 


DE 


9CAF CDA5BB 


0610 




CALL 


MATRIX 


9CB2 EB 


l ": 2 ■ 




EX 


DE . HL 


9CB3 CDAEBB 


0630 




CALL 


MTABLE 


9CB6 0607 


0640 




LD 


B.7 


9CB8 23 


0650 


ADD7 


INC 


HL 


9CB9 10FD 


%66% 




DJNZ 


ADD7 


9CBB F5 


0670 




PUSH 


AF 


9CBC CD06B9 


0680 




CALL 


ROMENA 


9CBF 0E08 


0690 




LD 


C.8 


9CC1 1A 


0700 


NXTBYT 


LD 


A. (DE) 


9CC2 0608 


0710 




LD 


B,8 


9CC4 IF 


0720 


NXTBIT 


RRA 




9CC5 CB16 


0730 




PL 


(HL) 


9CC7 10FB 


0,-40 




DJNZ 


NXTBIT 


9CC9 13 


0750 




INC 


DE 


9CCA 2B 


0760 




DEC 


HL 


9CCB 0D 


0770 




DEC 


c 


9CCC 20F3 


0780 




JR 


NZ. NXTBYT 


9CCE CD09B9 


0790 




CALL 


ROMDIS 


9CD1 Fl 


0800 




POP 


AF 


9CD2 CD5ABB 


0810 




CALL 


TXTOUT 


9CD5 Dl 


0820 




POP 


DE 


9CD6 C9 


0830 




RET 




9CD7 FE06 


0840 


EXPLOD 


CP 


6 


9CD9 C0 


0850 




RET 


NZ 


9CDA CD06B9 


0860 




CALL 


ROMENA 


9CDD DD6E06 


0870 




LD 


L,CIX+6) 


9CE0 DD660A 


0880 




LD 


H, (IX+10) 



80 



9CE3 


2D 


0y90 




DEC 


L 


9CE4 


- - icr 


0900 




DEC 


H 


9CE5 


DD7E08 


091 




LD 


A, ( IX+8) 


9CE8 


94 


0920 




SUB 


H 


9CE9 


4F 


0930 




LU 


C.A 


9CEA 


GDI ABC 


0940 




CALL 


CHRPOS 


9CED 


AF 


0950 




XOR 


A 


9.CEE 


81 


0960 


BYTES 


ADD 


A f C 


9CEF 


10FD 


0970 




DJNZ 


BYTES 


9CF 1 


47 


0930 




LD 


B,A 


9CF2 


DD7E04 


0990 




LD 


A, (IX+4) 


9CF5 


DD4E06 


1000 




LD 


C, ( IX +6) 


9CF8 


0U 


1010 




DEC 


c 


9CF9 


91 


1020 




SUB 


i_. 


9CFA 


4F 


1030 




LD 


C.A 


9uFB 


EB 


1040 




Ex 


DE.HL 


9CFC 


2 1 


1050 




LD 


HL,0 


9CFF 


DD7E02 


1060 




LD 


A, (IX+2) 


9D02 


B7 


1070 




OR 


A 


9D03 


2045 


1030 




JR 


NZ.PART2 


9D05 


C5 


1090 




PUSH 


BC 


9D06 


D5 


1100 


/ 


PUSH 


DE 


9D07 


3E08 


1110 


NXTROW 


LD 


a . y 


9D09 


F5 


1 120 


NXTLIN 


PUSH 


AF 


9D0A 


C5 


1130 




PUSH 


BC 


9D0B 


D5 


1140 




PUSH 


DE 


9D0C 


7E 


1150 


NXTBTE 


LD 


A. (HL) 


9D0D 


*1 O 


1160 




INC 


HL 


9D0E 


B6 


1170 




OR 


(HL) 


9D0h 


£ ~ t 


1180 




INC 


HL 


9D 1 


CB74 


1190 




BIT 


6M 


9D12 


2803 


1200 




JR 


Z. INROM 


9014 


210000 


1210' 




LD 


HL.0 


9D17 


12 


1220 


INROM 


LD 


(DE),A 


9D18 


1C 


1230 




INC 


E 


90 19 


200 A 


1240 




JR 


NZ , GOTBYT 


9D1B 


14 


1250 




INC 


D 


9D1C 


7A 


1260 




LD 


A,D 


9D1D 


E607 


1270 




AND 


__j 


9D1F 


2004 


1280 




JR 


NZ f GOTBYT 


9D21 


7A 


1290 




LD 


A,D 


9D22 


D608 


1300 




SUB 


8 


9D24 




1310 




LD 


D.A 


9D25 


10E5 


1320 


GOTBYT 


DJNZ 


NXTBTE 


9D27 


Dl 


1330 




POP 


DE 


9D2S 


7A 


1340 




LD 


A,D 


9D29 


C608 


1350 




ADD 


A, 8 



81 



9D2B 


"~< i' 7 


j. .-; :"-( V) 




LD 


D.A 


9D2C 


CI 


1370 




POP 


BC 


9020 


Fi 


1380 




POP 


AF 


9D2E 


3D 


1390 




DEC 


A 


9D2F 


2008 


1 i± L-i L~1 




JR 


NZ.NXTLIN 


9031 


7A 


1410 




LD 


A,D 


9032 


0640 


14^:0 




SUB 


64 


9D34 


cr~7 

■J i 


1430 




LD 


D,A 


9035 


7B 


1440 




LD 


A ,E 


9036 


i :;-,!-! fl 


1450 




ADO 


A. 80 


9038 


5F 


i460 




LD 


E,A 


9039 


300 A 


1470 




JR 


Nu . GOTROU 


9D3B 


14 


1480 




INC 





9D3C 


7A 


1490 




LD 


A,D 


9030 


E607 


1 5 




AND 


-7 
i 


9D3F 


2004 


1510 




JR 


NZ , 60TR0W 


904 i 


i' - H 


1520 




LD 


A.D 


9042 


0608 


1 -•-•■& 




SUB 


8 


9044 




1540 




LD 


D,A 


9045 


00 


1550 


60TK0W 


DEC 


c 


9046 


20BF 


1560 




JR 


NZ . NXTROW 


9048 


01 


1 "Z> (' 




POP 


DE 


9049 


CI 


1580 




POP 


BC 


9D4A 


3E0F 


1590 


PART2 


LD 


A. 15 


9D4C 


F5 


1600 


FADE 


PUSH 


AF 


9040 


C5 


1610 




PUSH 


BC 


9D4E 


05 


1620 




PUSH 


DE 


9D4F 


DO7E00 


1630 




LD 


A, ( IX+0) 


9052 


3C 


1640 




INC 


Pi 


9053 


i O 


1650 


PAUSE 


HALT 




9054 


3D 


1660 




DEC 


A 


9055 


20FC 


1670 




JR 


NZ , PAUSE 


9057 


3E03 


1680 


NEWROW 


LD 


A. 8 


9059 


F5 


1690 


NEWLIN 


PUSH 


AF 


905A 


f:F. 


1700 




PUSH 


BC 


9D5B 


05 


1710 




PUSH 


DE 


9D5C 


7E 


1720 


NEWBYT 


LD 


A.(HL) 


9050 


iCO 


1730 




INC 


HL 


905E 


B6 


1740 




OR 


(HL) 


9D5F 


*io 


1 -?<=:& 

A. 1 •_' \t 




INC 


HL 


9060 


CB74 


1760 




BIT 


6.H 


9062 


2803* 


1770 




JR 


Z . ROM 


9064 


210000 


1780 




LD 


HL.0 


9067 


EB 


1790 


ROM 


EX 


DE . HL 


9U68 


A6 


1800 




AND 


(HL) 


9069. 


EB 


1810 




EX 


DE . HL 


9D6A 


12 


1820 




LD 


(DE) .A 



82 



9U6B 


1C 


1830 


INC 


E 


9D6C 


k:0v3A 


134G 


JR 


NZ. FNDBYT 


9D6E 


i4 


1850 


INC 


D 


9D6F 


\' Pi 


I860 


LD 


A,D 


9D70 


E607 


1370 


AND 


™7 
1 


9D72 


2004 


1880 


JR 


NZ, FNDBYT 


9U74 


f' A 


1890 


LD 


A, LI 


9D75 


D603 


1900 


SUB 


y 


9D77 


cr— ? 
•J i 


1910 


LD 


D.A 


9D78 


10E2 


1920 


FNDBYT DJNZ 


NEWBYT 


9 Li 7 A 


Dl 


1930 


PUP 


DE 


9D7B 


r P\ 


1940 


LD 


A, Li 


9D7C 


C603 


1950 


ADD 


a . y 


9D7E 




I960 


LD 


D.A 


9D7F 


Cl 


1970 


POP 


BC 


9D80 


Fl 


1980 


POP 


AF 


9D81 


3D 


1990 


DEC 


fi 


9D82 


20D5 


2000 


■JR 


NZ,NEWLIN 


9D84 


7A 


2010 


LD 


A.D 


9D85 


D640 


2 2 


SUB 


64 


9D87 


•J ( 


2 3 


LD 


D.A 


9D88 


7B 


2040 


LD 


A,E 


9D89 


C650 


2 5 


ADD 


A, 80 


9D8B 


5F 


2 6 


LD 


Cl a M 


9D8C 


300A 


2070 


JR 


IMC . FNDROW 


9D8E 


14 


2 8 


INC 


D 


9D3F 


7A 


2 9 


LD 


A.D 


9D90 


E607 


2100 


AND 


"7 


9D92 


2004 


2110 


JR 


NZ , FNDROW 


9D94 


7A 


2120 


LD 


A.D 


9D95 


D608 


2130 


SUB 


y 


9D97 


ET— 7 


2140 


LD 


D.A 


9D98 


0D 


2150 


FNDROW DEC 


c 


9D99 


20BC 


2i60 


JR 


NZ . NEWROW 


9D9B 


Dl 


2170 


POP 


DE 


9D9C 


Cl 


2130 


POP 


BC 


9D9D 


Fl 


2190 


POP 


AF 


9D9E 


3D 


2200 


DEC 


A 


9D9F 


20AB 


2210 


JR 


NZ.FADE 


9DA1 


3E00 


2220 


LD 


A,0 


9DA3 


DD5E04 


2230 


LD 


E, (IX+4) 


9DA6 


DD6E06 


2240 


LD 


L, (IX+6) 


9DA9 


DD5608 


2250 


LD 


D. (IX+8) 


9DAC 


DD660A 


2260 


LD 


H. CIX+10) 


9DAF 


ID 


2270 


DEC 


E 


9DB0 


2D 


2280 


DEC 


L 


9DB1 


15 


2290 


DEC 


D 



83 



9DB2 


■- cr 


!^o00 




DEC 


H 


9DB3 


CD44BC 


2310 




CALL 


FILBOX 


90B6 


CD09B9 


V P, V Qi 




CALL 


ROMDIS 


9DB9 


C9 


jj .-; .-! w 




RET 




9DBA 


FE03 


2340 


LWRAP 


CP 


^i 


9DBC 


C0 


2350 




RET 


NZ 


9DBD 


DD6E02 


2360 




LD 


L, CIX+2) 


9DC0 


2D 


2370 




DEC 


L 


9DC1 


DD6604 


2380 




LD 


H. CIX+4) 


9DC4 


-icr 


2390 




DEC 


H 


9DC5 


CD 1 ABC 


2400 




CALL 


CHRPOS 


9DC8 


DD4600 


2410 




LD 


B. CIX+0) 


9DCB 


CB20 


2420 




SLA 


B 


9DCD 


05 


2430 




DEC 


B 


9DCE 


0E08 


2440 




LD 


C. 8 


9DD0 


E5 


2450 


FOWL 


PUSH 


HL 


9DD1 


C5 


2460 




PUSH 


BC 


9DD2 


CB26 


2470 




SLA 


(HL) 


9DD4 


7h 


2480 




LD 


A.(HL) 


9DD5 


F5 


2490 




PUSH 


AF 


9DD6 


5D 


2500 


BYTEL 


LD 


EJ_ 


9DD7 


54 


2510 




LD 


D,H 


9DD8 


2C 


2520 




INC 


L 


9DD9 


200A 


2530 




JR 


NZ. HLLOK 


9DDB 


24 


2540 




INC 


H 


9DL.IC 


7C 


2550 




LD 


A,H 


9DDD 


E607 


2560 




AND 


r 


9DDF 


2004 


2570 




JR 


NZ . HLLOK 


9DE1 


7C 


2580 




LD 


A,H 


9DE2 


D608 


2590 




SUB 


y 


9DE4 


67 


2600 




LD 


H,A 


9DE5 


1A 


2610 


HLLOK 


LD 


A , ( DE ) 


9DE6 


CB26 


2620 




SLA 


(HL) 


9DE8 


3804 


2630 




JR 


C , SETBTL 


9DEA 


CBA7 


2640 




RES 


4. A 


9DEC 


1802 


2650 




JR 


TSTBTL 


9DEE 


CBE7 


2660 


SETBTL 


SET 


4, A 


9DF0 


CB66 


2670 


TSTBTL 


BIT 


4,(HL) 


9DF2 


2802 


2680 




JR 


ZJ3ITL0K 


9DF4 


CBC7 


2690 




SET 


0,A 


90F6 


12 


2700 


BITLOK 


LD 


(DE) ,A 


9DF7 


10DD 


2710 




DJNZ 


BYTEL 


9DF9 


Fl 


2720 




POP 


AF 


9DFA 


3804 


2730 




JR 


C . WRAPL 


9DFC 


CBA6 


2740 




RES 


4. (HL) 


9DFE 


1802 


2750 




JR 


ENDPXL 


9E00 


CBE6 


2760 


WRAPL 


SET 


4. (HL) 



84 



9E02 


CB67 


^i-'70 


ENDPXL 


BIT 


4 , A 


VE<*4 


vygv 


2^80 




JR 


Z.ROWFNL 


9E06 


CBC6 


27'90 




SET 


0, (HL) 


9E08 


Ci 


2800 


ROWFNL 


POP 


BC 


9E09 


El 


2310 




POP 


HL 


9E0A 


7C 


2320 




LD 


A,H 


9E0B 


C603 


2830 




ADD 


A » o 


9E0D 


/ —f 

o r 


2840 




LD 


H ? A 


9E0E 


0D 


2850 




DEC 


c 


9E0F 


20BF 


2860 




■JR 


NZ , ROWL 


9E11 


C9 


2 h7^ 




RET 




9E12 


FE03 


2880 


RWRAP 


CP 


3 


9E14 


C 


2390 




RET 


NZ 


9E15 


DD6E02 


2900 




LD 


L. CIX+2) 


9E18 


2D 


2910 




DEC 


L 


9E19 


DD4E00 


2920 




LD 


C, ( IX+0) 


9E1C 


DD7E04 


2930 




LD 


A, CIX+4) 


9E1F 


81 


2940 




ADD 


f: 


9E20 


D602 


2950 




SUB 


j^.' 


9E22 


.-L "7 


2960 




LD 


H.A 


9E23 


CD 1 ABC 


2970 




CALL 


CHRPOS 


9E26 


,-• ,~i 


2980 




INC 


HL 


9E27 


41 


2990 




LD 


B,C 


9E28 


CB20 


3 




SLA 


B 


9E2A 


05 


3010 




DEC 


g 


9E2B 


0E08 


3020 




LD 


C ■ 8 


9E2D 


E5 


3 3 


ROWR 


PUSH 


HL 


9E2E 


C5 


3040 




PUSH 


BC 


9E2F 


CB3E 


3050 




SRL 


(HL) 


9E31 


7E 


3 6 




LD 


A. (HL) 


9E32 


F5 


3070 




PUSH 


AF 


9E33 


5D 


3030 


BYTER 


LD 


E f L 


9E34 


54 


3090 




LD 


D.H 


9E35 


7D 


3100 




LD 


A.L 


9E36 


2D 


3110 




DEC 


L 


9E37 


B7 


3120 




OR 


A 


9E3S 


200A 


3130 




JR 


NZ , HLROK 


9E3A 


7C 


3140 




LD 


A.H 


9E3B 


■ - icr 


3150 




DEC 


H 


9E3C 


E607 


3160 




AND 


('" 


9E3E 


2004 


3170 




JR 


NZ . HLROK 


9E40 


7C 


3180 




LD 


A.H 


9E41 


C608 


3190 




ADD 


A . 8 


9E43 


67 


3200 




LD 


H,A 


9E44 


1A 


3210 


HLROK 


LD 


A, (DE) 


9E45. 


CB3E 


3220 




SRL 


(HL) 


9E47 


3804 


3230 




JR 


CSETBTR 



85 



9E49 


CB9F 


3240 




RES 


3 . A 


9E4B 


1802 


ri '.■■' !"i 




JR 


TSTBTR 


9E4D 


CBDF 


32;-. 


SETBTR 


SET 


o . A 


9E4F 


UBoL 


3270 


TSTBTR 


BIT 


3. CHL) 


9E51 


V J-| i"i 2 


3280 




JR 


Z , B I TROK 


9E53 


CBFF 


9 2 '"■' 




SET 


i"' - A 


9E55 


12 


;-; ;-; C) 0\ 


BITROK. 


LU 


(IDE) .A 


9E56 


1 0DB 


33 1 




DJNZ 


BYTER 


9E58 


Fl 


9 'r\ '2. 




POP 


Ah 


9E59 


3804 


3330 




JR 


C , WRAPR 


9E5B 


CB9E 


3340 




RES 


3 . ( HL ) 


9E5D 


1802 


3350 




.JR 


ENDPXR 


9E5F 


CEDE 


3360 


WRAPR 


SET 


3, (HL) 


9E61 


CB5F 


3370 


ENQPXR 


BIT 


3, A 


9E63 


2802 


3380 




JR 


Z . ROWFNF 


C? rr -■_ *— . 


CBFE 


3390 




Sli 


7. (HL) 


9E67 


CI 


3400 


ROWFNR 


POP 


BC 


'-/ £T -•- O 


El 


3410 




POP 


HL 


Q P /-, Q 


7C 


3420 




LD 


A.H 


9E6A 


C608 


3430 




ADO 


A. 8 


9E6C 


'Z 1 i' 


3440 




LD 


H,A 


9E6D 


0D 


3450 




DEC 


f: 


9E6E 


20BD 


3460 




JR 


NZ , ROWR 


9E70 


C9 


3470 




RET 




9E71 


DD4E00 


3480 


6RPNT4 


LD 


C , ( IX+0) 


9E74 


DD6E02 


3490 




LU 


L, CIX+2) 


9E77 


DD6603 


3500 




LD 


H ? (IX+3) 


9E7A 


DD5E04 


3510 




LD 


E, ( IX+4) 


9E7D 


DD5605 


3520 




LD 


D. (IX-i-5) 


9E80 


0602 


3530 




LD 


B.2 


9E82 


D5 


3540 


NXTCDE 


PUSH 


DE 


9E83 


E5 


3550 




PUSH 


HL 


9E84 


C5 


3560 




PUSH 


BC 


9E85 


CDC0BB 


3570 




CALL 


MOVABS 


9E88 


CI 


3580 




POP 


BC 


9E89 


-7i~ 


3590 




LD 


A,C 


9E8A 


0C 


3600 




INC 


c 


9E8B 


C5 


3610 




PUSH 


BC 


9E8C 


CDFCBB 


3620 




CALL 


GRACHR 


?E8F 


CI 


3630 




POP 


BC 


9E90 


79 


3640 




LD 


A,C 


9E91 


0C 


3650 




INC 


c 


9E92 


C5 


3660 




PUSH 


BC 


?E93 


CDFCBB 


3670 




CALL 


GRACHR 


9E96 


CI 


3680 




POP 


BC 


9E97 


El 


3690 




POP 


HL 
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9E98 


Di 


9E99 


3E10 


9E9B 


2B 


9E9C 


3D 


9E9D 


20FC 


9E9F 


10E1 


9EA1 


C9 



700 
710 
720 
730 
740 
750 
760 
770 



MOVEGR 



POP 


DE 


LD 


A. i6 


DEC 


HL 


DEC 


ri 


JK 


NZ . MO vEGF 


DJNZ 


NXTCDE 


RET 




END 
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OUTs, PEEKs, POKEs 
y C ALLs utiles 



El mamotretico tftulo lo dice todo. Este capftulo esta dedicado 
a un numero de utiles rutinas y posibilidades que pueden ser 
accedidas mediante los comandos arriba indicados, todos estos 
comandos y su uso han sido ya explicados, pero unicamente 
dando un pequeRo numero de ejemplos. Aquf tenemos el resto. 

1) Hay un numero de sistemas para impedir que los demas 
tengan acceso a nuestros listados pero la mayorfa estan 
relacionados con la imposibilidad de 'romper' el programa. 
Este POKE permite romper el programa, pero no listarlo. 
Esto es debido a que POKE introduce un caracter de 
control en la primera ifnea del programa. 

Escribir la lfnea 1 de la forma siguiente: 1 REM*** 
Teclear ahora POKE & 176,255 

A partir de este momento, tu programa debe ser imposible 
de listar. 

2) Un rapido CALL aquf para limpiar el buffer del teclado: 
CALL &BFF9, &C9, &1CED, &CF00. 

3) No se cuantos de vosotros habreis encontrado molesto 
tener que establecer un LOAD o CAT cada vez que se 
quiere posicionar la cinta del cassette usando el boton de 
PLAY. OUT 512,6 habilita boton de PLAY, permitiendote 
que lo uses nuevamente, mientras que OUT 512,0 lo 
deshabilita de nuevo. 

4) Mediante el comando OUT 256.N puede obtenerse una 
forma simple de scroll horizontal, donde N es la posicion 
del caracter. Prueba OUT 256,20 para hacer un 
desplazamiento desde el centro de la pantalla en modo 1. 
El scroll produce un efecto de rotacion de la pantalla 
sobre su eje longitudinal, donde los caracteres que 
desaparecen por el lado izquierdo reaparecen por el 
derecho. 

5) Teclea CALL &BB7E para anular el cursor de la pantalla. 
Para activarlo usa CALL &BB18. 

6) CALL &BB18 es igual al comando BASIC: 

WHILE INKEY$ = "": WEND 

Tanto la lfnea de programa como la llamada (CALL) 
esperan que sea pulsada una tecla. 

7) CALL &BD19 realiza una accion conocida como frame 
flyback. Esto simplemente da un mejor aspecto y un 
movimiento mas suave a la animacion de tus pantallas. 
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Ensambladores y Lenguaje 
Ensamblador 



Te habras dado cuenta que en este libro no unicamente estan 
incluidos listados de BASIC, sino que tambien los hay en 
Lenguaje Ensamblador. Para aquellos que no estan 
familiarizados con este lenguaje, existe un metodo simple de 
explicar las distintas instrucciones en Codigo Maquina que hay 
disponibles. Por ejemplo, una instruccion que hace regresar al 
ordenador desde el Codigo Maquina al BASIC. Esta instruccion 
es mostrada en los programas cargadores BASIC como C9 
cuando estos programas utilizan la numeracion hexadecimal 
(base 16). El codigo equivalente en ensamblador para esta 
instruccion es RET, que obviamente es una abreviatura de 
RETURN. Echa un vistazo a las listas en Lenguaje Ensamblador 
y comprobaras que esta instruccion esta en penultimo lugar. 

Si quieres obtener mas informacion sobre el Lenguaje 
Ensamblador, te sugiero que mires una de las listas mencionadas 
en la bibliografia. Lo que si estoy interesado en mencionar aqui 
es otro grupo de instrucciones. Este grupo puede ser visto en los 
listados de Lenguaje Ensamblador y son instrucciones tales 
como END, ORG, DEFM y PRNT, todas ellas son comandos 
usados por el ensamblador (el programa que te permite escribir 
Codigo Maquina en Lenguaje Ensamblador). El uso de un 
ensamblador hace mas facil la escritura del Codigo Maquina, asf 
como seguir el programa escrito por otra persona. 

Estos comandos del ensamblador, o directores como tambien 
son conocidos, ayudan al programador de Codigo Maquina y 
deben ser incluidos en los listados en Lenguaje Ensamblador. 
Para que no te confundas cuando mires un listado en Lenguaje 
Ensamblador, abajo tienes detallados estos comandos: 

ORG END EQU DEFL DEFB DEFW 
DEFW DEFS DEFM PRNT ENT 
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BIBLIOGRAFIA 



Entre los numerosos libros que tratan la programacion en 
Codigo Maquina del Z-80 en general y especfficamente del 
Amstrad, nosotros hemos elegido algunos tftulos para consultar. 

Amstrad Machine Language For The Absolute Beginner 

de Joe Pritchard, Melbourne House. ISBN 86161 1934 

En nuestra opinion, la mejor gufa para iniciarse en este sujeto 
(jpor supuesto, antes de que la nuestra fuese publicada!). En 
serio, el libro es una completa gufa para el que se inicia en 
Codigo Maquina con el Amstrad. A diferencia de otras muchas 
gufas de Codigo Maquina, esta es muy especffica para el 
Amstrad, incluyendo un numero de las 'llamadas' (calls) 
disponibles en la ROM. El libro tiene una pobre presentacion; 
justo los listados de impresora y algun que otro diagrama. En el 
texto hay algunos fallos, pero lo mas preocupante son los 
errores existentes en los listados de programas. A pesar de 
todo, una buena compra para aquellos que deseen ir mas alia de 
los primeros inicios con el Codigo Maquina. 

Amstrad CPC *64 Machine Code 

de Steve Webb. Virgin Books. ISBN 86369 082 3 

Este^ delgado libro es ideal para el novel en Codigo Maquina 
jquien piensa que PUSHing y POPing son formas nuevas de 
baile! En lugar de lanzarse dentro de complicadas explicaciones 
sobre los conceptos y principios del Codigo Maquina, el libro se 
mantiene dentro de un nivel mas practico introduciendote en los 
Z80 Op codes (codigos de operacion de Z80) que tu puedes usar. 
Es posible que puedas necesitar otro libro para suplementar las 
ensenanzas de este, pero para el principiante total merece la 
pena considerar su compra. 

The Concise Firmware Specification 

Order Code: SOFT 158. Amsoft. 

Con un precio de 20 libras (unas 4.000 Ptas.) se trata de un 
folleto de hojas sueltas que puede hacerte pensar que Amsoft no 
trata bien al publico. No es este el caso. Por ese dinero, 
obtienes una referenda tecnica completa donde estan todos los 
detalles de las rutinas contenidas en la ROM, como trabajan y 
que parametros requieren. Un numero de rutinas de nuestro 
libro^ habrfan sido bastante mas diffciles de escribir si no 
hubiesemos tenido esta gufa. 
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Disposicion del Teclado 



El siguiente diagrama muestra el codigo numerico de todas las 
teclas: 



TECLADO PRINCIPAL 



65-|57l56|49|48|4l|40|33|32|25|24|l6j79 



66 



64 



68 



67 59 



58 



50 



51 



43 



M 



35 34 



27 26 17 



70 |69|60| 61 1| 53 1 52 1 44 1 45 1 37 1 36 [29 [28 



38 1 39 J 31 



19 



18 



21 71 



63 62 



55 54 46 



30 



22 



21 



47 



M 



TECLADO NUMERICO 



TECLAS DE CURSOR 



10 


11 


3 


20 


12 


4 


13 


14 


5 


15 


7 


6 



8 
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EN CODIGO 



MAQUINA 



EL BASIC es el Ienguaje para ordenadores mas sencillo de 
aprender, y usualmente es dominado de forma rapida por el 
programador novel. Sin embargo, al tiempo que progresan, muchos 
programadores encuentran que partes de sus programas que 
requieren una rapida ejecucion, tales como desplazamientos 
rapidosde la pantalla, no pueden ser realizadosen BASIC. 

Ahora tu podras controlar el verdadero poder de tu Amstrad 
mediante el Codigo Maquina con impresionantes resultados. 

Este libro contiene 20 rutinas, cada una escrita de forma que 
pueden ser incorporadas en tus propios programas con el minimo 
esfuerzo. Sin que sean necesarios conocimientos previos de Ienguaje 
Ensambladorni Codigo Maquina. 

Cada rutina es totalmente descrita mediante ejemplos y 
explicaciones de su uso. Con este libro seras capaz de lograr 
extraordinarios efectos tales como suaves desplazamientos de la 
pantalla, rotaciondecaracteresmulticolores, nuevoscomandosde 
sonido, caracteres italicos y mas efectos -rutinas que en BASIC son 
imposibles de realizar, y que mejoraran tus "cansados" programas, 
tantosisonjuegos,educacionalesoaplicacionesdenegocios. 
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